Phoenix Publishing - The Oric-1 Program Book

THE
ORIC-1
PROGRAM BOOK

~~ = a

THE ORIC-1
PROGRAM BOOK

50 programs
for home, educational
and business use

VINCE APPS

PHOENIX PUBLISHING ASSOCIATES
BUSHEY, HERTS.

Copyright ° Vince Apps 1983
All rights reserved

First published in Great Britain in 1983 by
PHOENIX PUBLISHING ASSOCIATES,
14 Vernon Road, Bushey, Herts. WD2 2JL

ISBN O 9465 7601 7

Printed in Great Britain by
Billing & Sons Limited, Worcester
Cover design by
Denis Gibney Graphics
Typesetting by
Prestige Press (UK) Ltd

Foreword

If the Oric-1 is the first computer you have owned then you
have made an extremely good choice as you now possess
a very versatile machine.

The Oric-1, with colour, full graphics and sound, is ahome
user Ss dream and the variety of programs in this book have
been written to show off the capabilities at your fingertips.

All of the programs can be used on the 16K, 32K and 48K
versions of the Oric-1 and the necessary instructions to
alter listings are given where appropriate.

In addition to providing you with a wide selection of
games, educational and business programs, | have included
details for budding programmers. You will find how you
can redefine characters, input machine codes, use a
screen print and peek into the machine memory.

If you have experience in programming you may well
understand these functions already but, if you are a
newcomer to computing you will find these programs an
excellent starting point from which to begin writing your
own material.

Many of the programs include suggestions for adapting
the content to input your own ideas and improve your
skills.

| really feel that this book contains something for everyone
and hope that it provides you with hours of entertainment
and challenge.

Contents

PROGRAMS FOR FUN AND GAMES

MO@SCTION cag aks bys a ee Ndr e iene OK eae eas 17
CALOIDINGE. -6 2.55 nacetae eid the ee eee eas 18
Missile Defence .......... 0c. cece eee eee eee eee 21
ODSISCIG COUISO.oiskeiw et AW i epee eee eae 25
PREY CONTE oh 85285 at Pts Fae BR ee a ee 28
MORO V GIS venta h brie deeeaeacr enh eneede ae ee ot
EISCUIONIC-OIGEN 2icicecidsactuneieeysacataees 34
LUGAYLANGCE jaodiews sit aeaeeetspeancuadeseees 36 ©
PUIGGIAIN oseeeeurrs dd tenia anes Panes ees 39
BOGKOUL. 4.0 kok id he 0 GRE ORO 41
HOSCUG. eo bisi bk hia hee kee ae ee aee 44
PRPREGE og hesad dene eee eae ee ee 47
CHPGIOS agian ee 49
WOO. oatetavewict eee ed eee teased een Gee een 50
CHODSICKS c3 6505-035. 00 stone sede tei 5 1
RONTDOGE! 32. o5seauhe kur Baas cae eee 52
CIOINIGIIGING: sig kik oo ee eee 53
WIV AOOR ia ke uaccua een. eae ne ee twee eaten 54
WiOtSe- COdG: i455 cai bak cd Sede bid wae 56
SSHIOUE bx 0acy acted 4c oe oe eae nie bob eee awaits 58
CWaS@. Scene fey ees eee ae eae ieee: 59
Digital CIOCK: 6.34.050 yesmnweseves wise bones 62
PIM DIONS® 4.4 4.4-04ud-w bee chika ae he ee eee 65
VVGatnG?t FOPOCASE: 6g seu doe 5-04 ae ER eke oes 66
Ba FUNG csc henehal selon oa Redereesetene dees: 68
IP OIOUK: ou Sec DV wa aoe ee arene eae ah ae 70
WMaz6 CHSSG. eeeha o$ab05neSbese bene oss ods 72
> | 6 ee ee ee Eee wee eee 77
PRA DIMNOAE eerie os tee aes oor atest 79
MISTEOF FUN S360 4.o06- shod otisaeseeies Kea aes 82
BOMOGL en bance Gedo se dees ae es 85
MaIGIDOSCODG 6425 t oe eis ahee teas 89
ROad RUNNG! 66556605 eed 6205.45.06 05 dew ee Seo: 90

TOWOIS OF IBN! 452605 eh ea ees 92

PROGRAMS TO MAKE YOU THINK

Guess the NUMDE? 26s cies acSGkiweeeacess 97
LUGE: cba eRe ee Oe ee es 99
Currency CONVENE! \sscscsctons hiaeswiaesevacacs 100
BOTANIC 2 54520scens nee ieee den 101
MUILIDICATION FADIBS: 600020054009 axa dwsenw Swe 103
SUCHING TOSt: 6 ca.btsensawereuSweeratn Swat werh 104
MetlHiC CONVENED 66650812 645.0n4 be detaaw a teneos 106
CaDHalS: xcinsavecanexennts ee ee re ee ere 108
GIADA cpanees cuba cance eek dae ate aaeS 110
MODOMS .65o5secieneyceee beat seeasad tyes 111
NSIS BOOK «ch eats cece de cde baiwalcuds beeen 112
PROGRAMS FOR BUDDING PROGRAMMERS

Machine Code Monitor ............0c cece ee eee 117
MEMMORE POOK: cavetoinegaiee were tenses 119
Binary to Decimal Converter ................005- 120
Character Dennnion. <2. eacestesexcsewudecesstes 121

SCOOTER NG . ag Siacnee acca eae one ea ee 123

PROGRAMS
FOR FUN AND GAMES

This first selection of programs is designed to
show off the colour, sound, graphics and
speed of your Oric.

REACTION

Here is a simple little test to check your reaction speed
before you try some of the tougher space games.

The Oric_ will emit atone-—hit any key to stop the counter.
Beat the clock.

If you are having a party and think some people shouldn't
drive home let them try this test, it could be a lot cheaper
than a breathalyser test.

RET

REM REACTION

RES

CLS

PRINT? PR IMT

IF RMDC 19>.9935 THEM 2a

KB=h Es

IF KS="" THEM 1Se

PRINT "CHEAT! !”

GIT 138

MUSIC 1.3.6,

PLAY Ls. 1. See

abel a

IF k=" " THEM Osil+1: GOTO sen
PRIHMT "YOUR RERCTION TIME Is "Gt
PRINT

ee

BOT 158

ee pee pepe ee et pe

i

“SRmihb Gite DiI Mh ub toto - &
TM MH MT TM MH TH THM HH OD OH TM M™

Ts fg fo fhe ho To

17

CATERPILLAR

You are in control of the body of a fast growing caterpillar.
Move using the O and P keys for left and right and the O
and A keys for up and down. These control keys can be
changed, if desired, by altering lines 290-320. Scattered
around the screen are a number of spiders which must be
avoided. If you hit either your own body, or one of the
spiders, or try to leave the screen, the game ends. One
point is scored for each body segment produced. Score
320 and a new screen will be generated.

There are two routines of particular interest in this program,
one is the delay loop in line 370. This has the effect of
speeding up the movement as the score increases. The
second is the “High Score” table in line 540 onwards. This
routine can be incorporated in many of the scoring games
in this book.

The memory locations in line 140 are for the 48K Oric. If
you have the 32K machine, use 30656 and 30671. For
the 16K version use 14272 and 14287.

al oe 2 od
1146 REM CATERFILLAR
Lee RET
1386 CLS
135 REM DEFINE CHARRCTERS
144 FOR J=47e4e TO 47s
120 READ A: FORE J.A
168 WHEAT oJ
170 DATA 8.25. 38,63,62,295.8,8,353. 19.44
631,386,435, 15.53
i?S REM SET UF SCREEM
188 TMK 2: PAPER &
{oe FOR wil TO oe
tA RLS THTS RMD | RSP OF]
M Re=TANTO RMD 1 ke +]
eet PLOT Fi. ke. lel
A WERT Ol
owe]. As "RA"

hh ha me ho
an i33 T3 oan

}

MMO LLM A We Pu DDO &

t.3

tat fy?
1 oh f o7 CA ty

27 fet £3 t23 3

=> ry ai

Gm MM OW «al --) hy

fs qs
wh
mM

rol td
a
ment
a Me
ep h
ate
ot
my el

“iat i
dco

mt
Fk
Bed a)
Fe LAB

Pe eS Rt
mM 7%

‘TF
:

Tr. SF
Ler Ue

atte hee, 4h,
lL

v.
5S t
+e
at

Fret kel

pe

PROiMT HRs 1? 3

REM LOOK AT KES RBORRD

TS 2K Ss

Te T#="" THEM 298

Aa TS

IF Ase" THEM =i

TF Age" AY THEM s+]

TPF Mg=" 0" THEM oR

IF AS="F" THEM Ket]

REM TEST FOR SIREEHM EDGE

IF 4338 OR RCA OF oes Ce ofa THEM
IF SRM eo ot bse THEM Sed
MIS IE 1539 Sa
PLR? tos d. 4
pat eben a oe §

REM DELAY Lode

FOR O41 TO 250-S0 : oHextT ©

REM EW SCREEM

IF SCs320 THEM CLS: GOTO tee

PLOT Baty Lee

BOTH 26a

RE WIT

PHPER ft

EMPLODE

PAPER i

POR Jit) TO 28: FRITH Heke T oi

PRINT UVOUR SCORE: "GSC

PRTHT CHfeee 1?

TMPLUT NOL PMRni a Midd

TP LEM His o>de eet Pe TMT TOO Loe

l
abd

(GOTO Sse

REM BUBBLE SORT

SC 18 SC

bso Ra pee bd ide

Fike Jeli TO 2 STEF-1

Tr Se Joe ole poo THEM Bet
TPese 1 3

TS$=hsc acon a

Sc Jed oes JD

DR eel Md LL
19

2

-
:
ae
ty

Mm @ &

3

yi Fy i
~

Tt
@ i

=.
Ce Sd

vr tf a
ee fat Pe)
mm WG OS Ta Mo

we. of

~
_

“e i
-

= 73
conte

“3
mi if

i ~-
iS? MO i

3 Silas es i i SS Se nS i i i MS
71, 0 LF had fe,

“
£73

i

a.
333
mm ik

M™

20

ooo, yt

Mie Wj a TS

NEST J

CLs: THK @: PAPER ¢: PRINT

PRIMT ” HIGH SCORES" «Pre Lh

rik fdesy To

PRINT " "sms" "sSemos* 9 5

PRIMT Mae M3

HEXT MH

PRINT: PRIHT ” PRESS FOTO PL

PRINT * = TO STor"
REM LOE AT RE BOARRD

GET (tt

Te Ge" THEM oe

Stats

BOT Ls

Ett

MISSILE DEFENCE

You have six cities to protect from an avalanche of enemy
missiles. Move your laser sight with the four arrow keys.
Fire with the space bar.

The game will end if all six cities are destroyed.

The memory locations used in line 200 for character
definition are for the 48K Oric. If you have the 32K version
these should be replaced with 306 72 and 30703. For the
16K machine use 14288 and 14319.

Lea Re

11@ REM fMISsILE DEFEHMCE

Lea REM

13s@ CLS

135 REM OISABLE CURSOR

146 PRINT CHR. 1

(7G REM PRINT TITLE: PAGE

19@ PLOT 11,12. "MISSILE DEFENCE”
198 WAIT 2h

192 CLS

133 REM MOVE CURSOR POST TIOM

194 FOR ff¥=1 TO 2b

136 PRINT

198 HEeT {4

199 REM DEFIWHE CHARACTERS

286 FOR J=4°g5e TO 47057

21Q@ RERD R

eek POKE J. A

2a8 HERT J

24H DATR G3, 45 63.45, 635.45,6°5,

ae DATA B,260,e 4,28, 28,28,28,8
26@ DATA le.12.12.63.83,1lé,1l2e.le
era DATA 42.e¢1-.42.2¢1.42.2¢1.42.21
26@ REM INITIAL VALLES

290 Skele:sy=15

SH FOR TO 9

S18 Re Jars

328 0 J o= INT A | WS MR Sl a

ih
23

21

eed al
G1
Bk
Be
6:38
a
7 te

MEAT J
LOSUE 1age

4 JA: BLelo: Mle rs

O$= "SCORE: "+STREC SO
PLOT 21,.8,0%

A PLOT 8.8.2

DS="MISSILES: "+45 TRS ML >
PLOT 4.8.05

GOTO Laer

REM MOVE MISSILES

A Je Jed

IF J©1@ THEN J=1
IF J¢1+SC-20 THEN RETURN
PLOT CC J2RG Jd," 9

RO JSR J 242
MESCRMC CC 12. Re S22

IF ¥<>122 THEM 60a

. PAPER: 4
4 ESPLOCE

PLOT CC aR oy OR

A WALT ek

PAPER 7

PLOT Cc J2,R¢I3," ”
PLOT Ch Jo, RC j944.7 "
PLOT CC.d97R6. ees.” ”
BL = BL 1

IF BL=@ THEM i308

1 GOTO 612

IF Ft Jo< bee THEM 628
Fer | Sse:
Me oe TAT RAD! Lo keS oes

IF SCRMA Cl Uo. 260232 THEM &28
Pit CAcJemeistae 6

Pie: TU ipethd

REM MOVE SIGHTS

i tad

TF kS="" THEM 748

KAS KB

ee

ifsets'y'

IF K#11 AWD Sel THEM SY=S''-1

fh

ooo OF or si A} On} OM) Oi
Meese TH DY Wo wo | -)
MihNIDMI DARA DB

cys ey ¢

IF Ke1l@ AND SY<23 THEM sifesiy'+f
IF K=9 AMD SHAS? THEM SaeSe+
IF Ke AMD SeHol THEN SeH=Se~1
IF filed THEM S4a

REM SHOOT

IF Ki >Se THEM 34

Kae

ZAP

ML=MlL—~ i

DS=S TRB. oe”

PLOT 14,8,0%

REM TEST FOR HIT

4 FOR f=) TO S

1
i

a
i

;

ri

fH
Pree DOW LAR wo hi fh

$

MASS Poo s

OG XD 62 4D 4
Bh
Ty i

Ph

IF GlMoeSe AWD eo Mo=S' THEM 8a
HEMT ff

BOT Sede

REM HIT

PAFER 1

EXPLODE

sts SC+10

Ds Tree ST

PLCIT 2o,, bs

PAPER 7

memos T Te Rod 1 okSE +4

IF SCRENC CCM. 26 oe THEM S16
ae es

PLOT O¥%,.07," ”
LAHSSCRMC Sk. SYD

A PLOT SK.S¥.0E"
A RETURM

REM BUILD CITIES
FOR H=4 TO 29 STEF §
FOR Pe24¢ TO 26

20 PLOT MP, "222"

MEST PM
Ori! Shoot ee a
RE TRI

REM MATH LOGrP
41 GOSUB 428
BOSUB 71a

BOT Legg

23

vik
mM

(rip MH “th LA io

SO?) i) $3 0) 0 03 0 to oD

®
MM hg NM LAR TM) mM MH TS

$s
~~

1
L4en

24

IF HS<SC THEM
PR LMT
FR IMT
Efe TMT
Pr IMT
PRIMT
ae Oe Oe ad Ob
IF LEP TS< Oh. 1 oe"
REM RESET

SCs LS

RESTORE

GOTO a4

PRIHT CHR 1? >
EMD

pd Some SS

"HIGH SOORE: "GHS

"OU SCORE: "3S

ABAD 3 isk

THEM 1410

OBSTACLE COURSE

The object of this game is very simple.

All the player has to do is to find his way from the top to
the bottom of the screen using the four arrow keys. There
are a few snags however. The player has to complete the
game within 50 moves, avoid the obstacles and guide
themselves by sound alone!!

The memory locations in line 150 are for the 48K Oric. For
the 32K machine use 30648 and 30655. For the 16K use
14264 and 14271.

(aa RES

118 REM OBSTACLE COURSE

128 REM

138 CLS

132 PRINT: PRIHT

134 INPUT "SKILL LEVEL C1 TO S32" isk
135 IF SkK“{1 OF SK>S THEN i134
136 SK=SkK-18

1328 CLS

144 PRINT CHRS¢C 17 >

145 REM DEFIME CHARACTER
138 FOR Je4rese TO 473m

16@ READ A

i7e@ POKE wi.

1s@ WHEXT J

130 DATA 63.,.63.63,.63,63, 83,683.63
195 REM INITIAL VALUES

208 M/=5e

228 Clb: R26

eer REM PLOT OBSTACLES

239 FOR Jee TO 25

24@ FOR K=1 TO 38

256 IF RNDCLoO>SK THEM 27a
268 PLOT KaJ.113

27o@ WEXT Ki. J

250 WAIT 208

238 FOR J=1 TO 24

25

EAE
318

Came

iz.
AD
i i

Rg

fh
fs

i LA BS fy

“Fe

z

MMA GUMA GUA

NN OF

=,
mT

i] WM >

Nia POI BW MHA WIWA
mi

ee
MN

fa)

-

4s ee BAR PDR RPAH HG WWW Bitte
i}

i
Y

i

Se
S18
bal oa
aa PL)
meh 9
meh
bal bot)
ral La]
it?

Jee
pal bod
oa a) a)
rm LH

aa el

26

PLOT . oe Me

WAIT a

PLOT (PR, fe

WRAL T 35

HES T oJ

PAPER @:IMK 2

REM MALTM Lode

D$S="MOIVES LEFT = "45TRSC fi ae”
PLOT 10.8,05

PLOT @.8,2

REM LOCK AT KEY GORRD
KS=KE YS

IF K$="" THEM sre

Met! ee

LF tt#v=8 THEM SSe

Os

Poss Fe

IF KS=RHRSCS > THEM D=l~1
IF KS=CHRSO9> THe C=l+]
IF KS=CHRSO 18> THEM R=R+]
IF KS=CHRS O11) THEM R=R-1
LF Fel ea eS Cie { pot Pa Clie ie THE t4 saa at a
IF Ree THEN STA

IF SCRAC CR ry=119 THEM See
MUS IC 1,36.

PLAY 1.8.1. lene

BAT 334

MUSTO ds 1.3.8

PLAY 1.8.1, 1iRe

ee

R= Pil

BOT Bae

REM FATLLURE

FOR J=12 TO 1 STEF-1
MUSIC 1.2,.J.8

PLAY 1.8.1. abe

WAIT 25

HET J

PLOT C.R,"°"

PAPER *: TMK @

FoR fi] TO ee

G38
et dd
ae
ee
fs

é

i7y itt

£1 2
- UG Hr om FY

~} “si ~} ae
Si
VOW

G3 hi}

PRINT

MEAT 4

PRIMT CHR 17 >
SOTO Fae

RE SSUOCESS
FOR J=1 TO le
MUSIC 1,.3,.J,.@
PLA’ ds tt. d. Lea
WAIT 2

HEMT J

GOT Bmag

ERM

27

ALIEN STORM

In this game you are pitted against a never-ending stream
of bomb dropping aliens descending from the top of the
screen. Move your laser base using the O and P keys. Fire
with the space-bar. If you are hit by a bomb, or an alien
lands on your base, the game ends.

The memory locations in line 810 are for the 48K Oric. For
the 32K model use 30664 and 30695. For the 16K
version use 14280 and 14311.

Lee RET

118 REM ALIEN ST Orth

{ee RET

138 CLS

{20 GOT Bie

139@ REM MOVE ALIEM

SAA PLOT AKA”

2 ASA +)

2M TF A’ése? THEM A’cs lL ARS TMT eM be 1 cok
git]

234 IF AY=26 AMD Bee THEM 1e@18

23S REM WHICH TYPE

S40 TF AYY2=IN TOA eo THEM Abe Hee Le
12 ELSE ACS=CHRS* ies 5

254 PLOT ARK AYS ACS

260 MUSIM 1s3.3.8

27 FLAY 1,.8,1. 288

S008 RETURM

S18 REM MOVE BoOteB

sek LF t= THEM Med Meee ys: GOTO 4

34 PLOT faut."

St ee

> REM HIT

Mo TF MoS AO Mkebs THEM Laie
OLE Me25 THEN Mag: BOT See
ra PLOT Meh

Mie RE TUR

4104
a
430
446)
4328
458
472
o75
$58
I
ral] Sa a
fall ad
Sh
“1
of be
see
rad
mL 1)
aba)
palo
wee
a a
ar 4
rata
sale
92
293
fe 4)
618
ea
ae
Pad al
S13
S828
B38
4a

REM MOVE BASE
THK E'S

IF T#="" THEM 458
AS=TS

PLOT By Ey r' Se

TF AS" AMD BRoL THEM BeeBH~ 1
TF AS="F" AND BROS? THEM BM=Bh+ 1
REM FIRE LASER

IF AS< >” " THEM 636

PLOT BA, B'~1. S%

ZAP

PLOT BH,B7—-1," "

scx | f=! i)

IF BK“ >A THEM 83a

REM OM TRRGET

PLOT Bx 6. BS

PAPER 1

EAPLODE

Sl=SC0+18

DS=S TRB. Slo

DIS=R IT GHTS! OS. LEW. DH I~ 1
WAIT 3

PLOT Bs, 8¥e1a" ”

PLOT 19,.8,01%

PAPER 7

PLOT AKA"

REM WEW AL TEM

AY'= J.

AKZ THT. RAMOS 1 RSE o+ 1

PLOT Be. BY’. BS

RETURM

REM DEFINE CHARACTERS
FOR Jed? a4 Th 47ers
READ AS'POKE J.F

HET oJ

DATA 8.38.63, 45,635, 12,18). 33,8) 38,6

3,45,63-l2,lé2,1le

S58

DATA @.12, 12.3508, 63.83,63,63, 12,12,

lés Les le. Le. le. le

S55

Be

REM ASSIGMH CHARACTERS

tm, 5 ) ; )

29

7a BS=" if"

A BYSSh Bese As]: AKeLS
@ Ase P”

MA FOR J=] TO Cé: PRIWT: MeExT ol
146 FPRIWMT CARSC 1? >

2M PLOT 12.8. "SCORE: "

25 REM fA LOOP

3950 GOSUB 2a

a4 GOSUE 428

960 GOSUE Sia

7A GOSUB 428

9908 GOTO 332

1404 REM BASE HIT

18210 PAFER 1

1928 EXPLODE

1930 PLOT 190,12:"G RAE a
1@32 PAPER ?
1H40 PRINT "OUR SCORE: "isl

B42 PRINT CHR 1? 3
1856 EWC

30

MONEYBAGS

It's pennies from heaven, or at least dollar signs from the
top of the screen, in this game for your Oric You control a
catcher at the bottom of the screen, moving left and right
with the O and P keys. Catch as many of the dollar signs as
you can, but miss 20 and the game ends.

120 REM
145 REM MOWEYGAGS
118 RET
116 CLS

120 PLOT 16s 125'N ON EY BAe eS
ec WAIT Sue

le¢ GOTO See

125 REM MOVE DOLLARS
138 J=J+1

132 IF J=1@ THEM J=1
134 IF J71+5C-28 THEM 330
136 IF RHDC1o>.9 THEN 33
146 PLOT CC Jaume Jo.” "
158 Re oe +]

155 REM CATCH?

168 [F RC Jot ees THEM eek
176 IF Ce Jo< oC THEN 2ee
188 MUSIC 1,.4,5,8

196 PLAY 1,.4.1,.356

192 REM INCREMENT RE
200 SC=SC+10

21g GOTO ere

215 REM MISSED

eee IF Rood ee6 THEN sak
230 MUSIC 1.3.3.8

2£4@ PLAY 1,.8,1,408

e8 CH=ChH+ 1

259 REM EMD OF GAME

260 IF CH=28@ THEM we

265 REM Web POST TIOM

27 Co Joe IMTS RHDC 1 RS S42 2

31

ao
29
388
338
395
$e
410
428
43)
440)
458
460
490
al)
wile
bal Si
RIE
wae
RAS
~ 12
we
oe
mall 4
pape] 4)
tka
rd
8g
38
600
6a
618
2k
Geo
6328
640
658
788
rik
veld
(ee
ra

32

Re j= 1
GOTO 338
PLOT C<Jo.RC 30,36

RE TLRM

REM MOVE CATCHER:
KS=KE YS

IF KS="" THEN 464

PLOT CC.CR,"” °

IF k$="0" AMD COre THEM Co=C0~1
IF KS="P" AMD CC<36 THEN CC=lC+)
PLOT CC.UR, "="

RET UR

REM START

CLS

PAPER @

INK +

Jay

CH=2

a

PRINT CHR. 17 >

FOR M=1 TO 26

PRINT

MEMT f4

CRees: Cl=168

PLOT CC,.CR,"-"

FOR f=1 TO o

Rid ht a= 4

Ceo INT’ RMDY 1 oASa+ 1
MEAT [4

REM MAIN LOOP

BOSUB 40

GOSUB 138

REM PRINT SCORE
DS="SCORE: "+STRS“ SIT >
PLOT 14,8,0%

GOTO 614

FOR M=10 TO 1 STEP ~1
MUSIC 1.3.8.8

PLAY 1,08,1,488

WAIT 28

HEwT TA

T4Q4 PLOT tis.de. "GAME it ¥ Se Re”
faa WALT 2h
768 PRIWT

‘Aad LEP Tse Oi. doe" THehd S1a@ ELSE

i
ae

762 IF HS<sC THEN NS=S5C

764 PRIAT "HIGH SCORE = “iHS
766 PRINT

77a PRINT "YOUR SCORE = "GSC
TSO PRIWT CHR. 17 >

730 THPUT "PLA AGATA 5 od

3

%

810 "PAPER ei Tbk w
B20 EMD

33

ELECTRONIC ORGAN

This program turns your versatile Oric into a mini electronic
organ!

The top letter row (starting with Q) forms the keyboard.
There is a choice of envelope and note length to give
different effects.

Try starting with envelope 1 and a note length of 2000. As
it stands, it only covers 12 notes, but this range can easily
be extended, following the format of lines 185 to 240,
using a second row of keys.

{ea REM

182 REM ELECTRONIC ORIG

118 Fe

115 Cus

126 FRINMT

tau INPUT UENVELOFE (=f 9° E

136 IF E41 OR ES? THEN 125

130 PRIN

146 IMPUT "HOTE LENGTH © 1l-S2r6? oak
145 IF Lad OF Leserer THEM 148

18 PRINT

155 PRINT "PRESS QWERTYULOPCI TO PLAY"

168 PRINT
165 PRINT "PRESS 2 TO STOP”
L7@ PRINT
175 GET AS

i@G IF AS="Z2" THEN 270
185 IF AS="Q" THEN Cea: M=t
19@ IF AS="" THEM C=3:H=3
195 IF AS="E" THEN O=3:M=5
20@ IF Ag="R” THEM Cs3: Nes

205 IF AS="T" THEN O=3: Hes
21G 1F AS=°Y" THEM O=3:Ne19
215 IF AS="Li" THEM Q=3:HeL2
2e@ IF Ag="1" THEN O=4:M=1
225 IF AS="0" THEM Os4: Mea

238
232
ra 2a)
245
258
fe be
etd
263

Fat Tears Fart
~ #
a” Kh

IF Ag="P”
IF Ag=C"
IF AS=" 9"
IF O=@ OR

MUSIC 1.0,

THEN O=4: N=5
THEM Cle4: Hee
THEM Q=4:H=8
H=@ THEN 175
Hs @

PLAY Jobo eol

N=: =a
GOTO 175
END

LUNAR LANDER

Now's your chance to start your astronaut training as you
endeavour to guide your lunar module to a safe landing on
the moon’s surface.

Control the module's rate of descent by pressing the space-
bar to fire your retro-rockets, but watch your fuel con-
sumption. As it stands the game is difficult, but not
impossible, to master. For the faint-hearted, the amount of
fuel in line 230 can be increased to make the game easier.

The memory locations in line 160 are for the 48K machine.
If you have the 32K version, use 30672 and 30687. For
the 16K machine use 14288 and 14303.

188 REM
1160 REM LUMAR LAER
128 REM
138 CLS
144 PAPER &@: THK
15a REM DEFIHE CHARACTERS
160 FOR wis4 756 TO 4771
17@ REAC A
160 POKE J.A
138 HEKT J
280 DATA
245 DATA @,.30,63.63,63.63.16. 51
218 DATA 63,.63,63,.63,.63,.63,63,.63
215 REM INITIAL VALUES
228 HT=2
23a VELAE: Flies
240 PRIWHT CHR 1? 2
S50 REM PUOT LUNAR SURFACE
“589 PLOT diese, "ida tdi t iinet ta
CeEcet eee eer cee a
27M. PLOT Tv eor tA’
260 PLOT 33.25.7404 0"
290 PLOT le2de. "dae"
306 PLOT 36.24. ° 400"

36

100 0) 0) Go)

JPInpe Hamu Boh hs he APR ee

i)

G2) iF i

+

-

BrEhEHp BES
MMPIRMWAIQWAI GABA RAN ADM

+.
+t:
S

4358
het
rad,

am,
ae a

4 ots
= el
bal Po
bal eel
a
oka
mak ka
ea
ibe
pe be
688
om
Eo acth’
ail
FF
fh
Fa Ses
ah
be Le)
belt

RE TAT LOOF

IF WTS 1 THEM HT=]
PLOT 18,HT. 122
fMWSIl l.e@.1e.8
PLA’ Lsi.1.é6e8
WAIT Se

VELeVEL+, &

p=" FUEL = Ue TRC RL 2
PLOT 24.8. (ts

PLOT fs fs

IF Fl=8 TWEM Sie
REM IGhnITe?
KB K ES

IF KhS=°" THEM Sia
TF Ree!” THEM ie
SHOOT

4 WAIT diet

REM DECREMEMT FUEL
Fits ll 1

IF Pulse TH 4h

F Je hii

VWEL=VEL<]

PLOT (BsHT."

HT= INTC HT+VEL 2

TF ATSS28 THEM 36a

GUT: SiS

REM COMTACT

Ire WeL<e2. 1 THEM 618
EXPLODE

PLOT Logos de

PLUT 13 ta oe CRASHED !
BOTO 7

MUSIC 1.5.6, 8

PLAY sets ds cee

WALT Se
MUSIC ae
PL? 1. by |
WATT
MUSTO 1.4,3, 8
PLAY Lott. 1, 4b
WAIT rei

12.8
, 3aaa

mat

37

PLOT 11.12,"A PERFECT LANDING!"
WAIT Sa
RESTORE

A PRIMT CHR 17 2

GOTO 138
PRINT CHS 17 >
CLS

FAPER 7

IHF. &

EMD

ANAGRAM

This game will print a series of anagrams for you to
decipher. If your answer is correct, a new anagram will be
given. Type “QUIT” to give up on a particular anagram and
“STOP” to end the game.

The list of words in the data statements of lines 520 to 540
can of course be extended or changed to suit individual
preferences.

i RETA
M REP RAMAGPRAI
M RES
A Cis

PRINT: PRIMT

Olt Wise Tei. te Leo
LF |

REM READ IM GATR
READ WoC Ji

TF Woe Jo" EMD? THEM eee
ee

IBITO Lee

Aa bm |

REM SELECT WORD
R=TMTO RMDC 1 RL o+]
AS=WOse ke

Fike T=] To LEM! AB >

R= LATO RAD! Loe L eS a+]

TPF MBC Rone THEM Sek
Mae Roepe as, Dd oO
Heat f

Fite T=1 TO le

TF fise Toe?" THEM 4
PRIWT fae [a3

HEMT I

PRIMT PR IMT

IMRT ''OWR GUESS 5%
rRIMT

Fit

MM fT Mm TM M A

mS

MM MM MM T

mM &

OA

53 0? 2 9 oo GO oo OD he AO oD PG AO NG BO OG Re ee ee ee Re Pt Re
NVM IMeK MOGI AUMEBOMeE DWH WMA Rohe
ee

ee]

IF GS=AS THEM 4358
IF G8="GUIT" THEM PRINT AS: PRINT: G

Ri rel

IF G8="STOP" THEM END

A PRINT “TR AGATE" PRINT

GOTO ee

34 PRINT "CORRECT!"

44
450
468
47
480
490
Bie
i Pe

eseal hove Pee

Mitshil + |

Pyspes 7

FOR I=1 TO le

rs Toe!

MEST I

Pre LT

GST 246

DATA FOME» MOD» MOLISE, TIGER, HOLWSE.A

PPLE. TRAD. WORD RPART YY. CH OME Y

a |

DATA DIGIT. IDER. AHAGRAM. ORE TT. PEMA

Y.FPERE. BIMARYT. PUPIL

540

DATA VIDED. RECORD, MODULAR LER. BOO

K FILM, CRICKET.PICTURE

rbd

DATA EMD

BREAKOUT

This is a version of the popular arcade game of the same
name. There are five rows of coloured bricks at the top of
the screen. Try and demolish them with the bouncing ball
from your bat. Move your bat with the O and P keys.

A point of interest in the program is the use of the plot
command in lines 280 — 320 to give different coloured
rows of bricks. By plotting a number between O and 7 in
column O in any row, the ink value will take the colour of that
number. This can be used to good effect in many games.

The memory locations in line 160 are for the 48K Oric For
the 32K version use 30672 and 30695. For the 16K, use
14288 and 14311.

1@a REM
Lif REM BREAKOUT
128 FEM
130 CLS
i4@ PRPER @: TMK

142 PRINT CHRO 17 2

150 REM DEFINE CHARACTERS

16a FOR Jis47ea5se To 4787S

178 REAC A

18e@ POKE w.A

19@ HEXT oJ

saa DATA @. 38,38. 30. 38, 38.38,8
218 DATA @,4,8,8,8,8,63,63

eon DATA 8.8, 38, 38, 38,0,4,8
230 REM SET UF WALL

240 FOR wies3 TO

250 FOR K=2 TO Se

26@ PLOT Kw. lee

27 WERT K,
238 FLOT @,-
S90 PLOT @.4.2
300 PLOT 0,53, 3
S18 PLOT 8.6.4
320 PLOT 8.7.5

41

REM DMITIAL VALUES

BLS

Bl=16: bR=24
Cee: eee sis]

R=THTO RMS 1 pA o+18
BIS Saw

P=" BALLS: "+ STR BLY

PLOT eS », |
DS="SCORE: "+S TREC SIC >

PLOT at. bts (1

PLOT @.8,e2
PLOT C.R."
zl +s,

Fo Fat oe!

452 IF {23 OR C41 OR R>eée OF RL THEM
468

$54 LA=SCRMi IC, Feo

$60 IF (<2 OF 0336 THe «=~

47 TF Fee THEM ‘ey

454 [FF e#é2é THEM Soa

430 MUSTC 1.1.9.8

SAM PLAY 1,8,1,. 28
“10 SLL ~1

se DS=S TRB. BL >
Si¢ PLOT 13.48.05
=e IF BlL=8 THEM Lege

24H SCS LI Se

S68 PLOT CR," ”

S77 GOTO S48

IF LA=3a2 THEM 67

IF LAS eles THEN 6228

Boe fl tel ze

MUSIC 1.4.2.8

PLAY Ls ls. eee

IF FRMOO L3o>.35 THEN #=~x
GBOTO ree

IF LAelee THEM s<'

634 PLOT G.ks" "

64a MUSIC 1.3.7.8

B4e SC=S0+18

B58 PLAY 1.8.1. eee

Fi iy OF he

ty

”

Bish A - VD

BIO wsoOIVPaIdsiesooan ui

ARBAB RWW WO Us
?

i
iS

tA

reo: Fy

iF
Ieee NM TN 7 Ww
VAM A SMD

Ty Oy Os Fy

67Q PLOT f.R.75"
YOR KS=KE S'S
re4 GOSUB 9$Be
Y1@ IF Kk$="" THEN Se
fee GOSUB SEe
YS TF Kk6="O" AND Bol THEM Bo=8C-s
760 IF Ks="F" AND BOSS THEM BC=BC+e
734 GOSUB Sag
7S Ds=STRBC ST 2
BVA PLOT 27,8, 0%
S19 GOTO 438
B35 REM BAT
S00 FOR M=8 TO &
9128 PLOT BC4+M. BR. a”

“4 MET f4
3H RE TUR

S REM WO GAT
SW FOR f= Toh 2

A PLOT Bt+td, Be”
378 HEXKT [4
38 RE TUR
18a IF SO PHS THEM HS=SC
10186 FOR M=1 TO 27: FRINT: HERT [4
142@ PRIWT "HIGH SCORE: "GHS
1830 PRIWT
{ada PRINT YOUR SCORE: "550
Lasse FR IAT
1O6@ THMRPUT "PLAY AGAIN” i te
a7 TF LEPTS¢ 0S, 1d o="N" THEM Lilia
1as8 Sle
{aow CLS
1148 GOTO 2328
11180 PRIWT CHR. Lr >
1120 PAPER YY: INk @
1138 EMD

RESCUE

Ever fancied being a knight in shining armour?

Here’s your chance as you strive to rescue the maiden in
distress from the black magician’s castle.

Move your knight using keys O and P for left and right, and
OQ and A for up and down.

One problem — the evil magician is throwing large boulders
at you! If you are hit by, or bump into one, you fail.

The difficulty of the game can be varied by changing the
loop count in line 630.

The memory locations in line 560 are for the 48K Oric If
you have the 32K machine these should be changed to
30672 and 30703. For the 16K version use 14288 and
143.19;

aa REM

1@35 REM RESCUE

1186 REM

115 Chis

126 Fi) lees Rh SS CW Ee”

go WAIT She

hi

122
13@ GOTO San

igd@ REM MOVE

15a KK Es

16@ IF KS="" THEN RETURN

oe,”

"Oi" AWD Ged THEM o=t~4
TRY ORD Cea? THEM tele t
"OE" AMD Rod THEM Fi=R- 1
aie Ir TS RMD Rilo THEM Rak+ 1
eet Ir Rid lo Rosse THEM ese

28 IF Sc RNC Coke iee Oe SCRMC DJ Roe Los
THEM Sim

foo REM HIT BY ROCK

S38 ERPLODE

eae PLOT Levdle."S FP LAT of"

26H WAIT ie

C3

LU FLOT
18@ IF
198 IF
ets oT

ANF AN
we ae

38 Hou

k

a kl
eo
oak Tae 1
tae ecel
eral

7h i

fs 3
hi bi he ee MAD

i

i ead
“re =

53
‘Rf fF
fH i

Ps
A

¥-
+—_

LO 3 -si

58)
MLA LS H MM &

Tm Ht

TLAGR CA Se f 0D 0) oo he OO) oo ik

mii
_

é
Pe

int

~
——

i |
Sete

Ker ke
ce Pe Pe

walt = hl

ee ee on
3 fre we Ms WY Ge mi Ni
WM Mm LAD

“Tr.
—

4

+ OY

f= “en ’
fy itd
Feb LA
apa
Eth
Bre
rahe

BIT Se

aj 5d We Od oe aa

REM THROM Rie

RSI! Reo. 1 RLS ot+k-6

IF Rivee OR Rl<l THEN See
=IMTORMO 1 ok LS o+0~-6

IF Reese OR Rei 1 THEN Bee

IF RAMDS 103.5 THEM RETR

ASTRA Baty rid 2

REM CASTLE

IF aArleL AWD we ded THEM RETURN

IF ##1le24 THEW PLOT R2.R1,°3": GoTo

MUSIC 132,348

FLAY 1.1. see

PLU! Reshiy o"

Pe T Lipth4

REM START

CLS

REM TWRM CFF CURSOR

PRIMT (HR. 17

Foe Je, TO 26

Fre LMT

MEAT

PAPER tt: Te

REM REDEF IME OHASACTERS

Pore J=4 758 TO 4? aa?

READ A

POKE J.

MEST i

DATA 42,635. 42,635.42. 63) 46.62
DATA 42,652.42. 6e,42, 62.25, 38)
DATA levis. le. Sis 44.18,18,.18
DATA le. ae. Ge, G3,63, 91.30. le
REM SET UF SCREEN

FOR Ji TO “er

RUST RMD. 1 ASS 2+ 1

Re= TMT. PND 1 2#2S 044

PLOT Riw«Rea #”

| a

REM ASSIGH GHARADT RRS

45

“~.
i

+ ‘
tat iss

iA

Bs

Troe ee TM RM UG

~j “.} ~aj —~} ~.}

H Ae tit

“IO
=.
et

iO Ia
t
a @,

fis 33
IMU ROME Bw

~

MH OD

mm

i
—

iO
Me DM Ow]

™ 4.

MS iyi

iri to oo 3 oh oo om

be

46

PLOT wey ta"!
Pit soe eS
se eabee

(ate

PLOT Coa U9"
Pete 74 “AIM LO
BOSWE 2
Pitt {Se

UT Ci ro

REM SUCCESS
Cie r= | TO 4
PLR G4. 3. Gly &
RERO f4

MUSTO Lea. te
PLAY L1G, Lee
WAIT Sa

MEAT
WAIT
PLAY
DATA
PLOT
Fre Dd T
PRIMT "(OUR SRORE: "Gta Shh ook Le

tA

te Eb
Levees
! ,TMDBU MADE IT!"

oo ae

sie
esle

FRED MT

REM EMO ROUT IME

IMePUT URLAY AGA 5 oe

FRIMT (CHesc 17 3

TF LER TS. Os. 2 >=" THEM S40 ELSE Fk

PAFER fi lok &
EME

ARTIST

Using the keyboard of your Oric you can draw straight onto
the high resolution screen.

As you will see the instruction for control keys is in the
program itself so, once you have entered the program, Oric
will do the rest.

RES

REM ARTIST

4A REM

A RLS: PRINT: PRIOIWT

REM FRIANT INSTRUCTIONS

PRIMT "USE KEYS 1 TO * TO CHAHGE ¢
COLOUR s BR TT

let PRIWT "RRROW KEYS AMD LDR To RAL
"SPRINT

126 PRINT "SB KEY TO TURN OFF": PRIWT
128 PRIAT °O Key To TiWkeM OW: PR IMT

13H FPRIWT "S KEY TO STOR”: PRIWT

132 PRIWT "PRESS SPACEBRR’ (GET Ma

Visd Ae Lew Y=] ae

136 HIRES

135 REM LOOK AT KEYSBORED

140 GET Ks

(Be IF hS="6" THEM b=

134 TF Daaaitendl THEM B=
136 TF hS2"5" THEM TERT: EM

160 DF KS@CHRSC 11> AMD Yee THEM Yev-1
17 TF Ke CHRS 1D AAD Yo THERM ff e'y'4+
1

ts IF MS=CHRS 0S > AMD Kos THEM KekK~]
130 TF KSB=CHRSC So AMD KASS? THEM week 1

M A

H

hee MH

Co

ke
a

1
1
1
1
1
1

hs ft
fu

_—

192 [TF he="U" AMD Ree AMO oe THEM Me
ee

134 [F KS="7T" AMD Ate? AMO ee THEM 4
sb Lt Ssetylm 1

47

196 iF Mie"? RMD Kee AMO Ye loe THEM «#
sate Loi yay |
138 ITF Ke2="hK" AMO MSS? RAD Ve ioe THEM
‘oat gat Sach ede os Myo cas Syed

139 REM CHANGE COLOUR
SAG TF ASCL KB o>4? AWD AS eg on Be THEM
TMK WAL RB OD
14o6TrF Bel THEM 2
WM CURSET Hatta ld
4 GOT t4e
324 CURSET it.
“4

a)

\.

as

BOSE Swe

4A GOTO Lik

mak DRAW be dad

295 CURMOY -Lae-Lss
iG ORAW Loi.
215 CUR! —LieL,
oeckd Pei TLifette

—.

{33

48

CIRCLES

Your Oric is capable of drawing some beautiful and
intricate patterns on the high resolution screen.

The next three programs, Circles, Web and Chopsticks, are
designed to show some of the effects which are possible.
The outstanding point to consider is the effect of these
programs from relatively short listings.

All of these programs are simple to adapt to show off your
own design skills.

1@a RET

116. REM CIRCLES

12e REM

138 HIRES

135 TF RHDe 1 o>. 61 THEM ise

144 Cel T CO RMDO 1 o#6+1 2

15@ S=TAT RMD. 1 oke+ 1 o

153 IF S=C THEM iS

168 FRPER C

17H INK S&S

Lae RELHT. RAD! 1 eRe ee + 1G

Loe Y= IAT RMD" 1 RL Se o+19

208 R= THT RMD 1 okL et o+5

218 IF #+Re235 Oe KeR< i THEM ise
e280 IF Y+R?198 OF ‘vk. 1 THEM i398
238 CURSET «foe ,

240 CIRCLE Fe. 1

ea GOTO iso

49

1 ee
118
128
1 ae
142
{Se
Le
irk
Lo
13%
Zhe
218
2
2h
2 tk
26
ark
Poa ool
age
388
a1
Sa
38
eh

50

WEB
Fee tt
REM WEE
PETA
FOR M=1 TO 1@
HIRES
RL=DTMT. RHO 1 eke o+]
FOR J#l To £2
RET? RHDe 1 oeeRE +e
BELTHT* RHDG 1 o#1 358 do+ce)
RZ=THTORMOG 1 okG o+]
IF Rieke THEM 138
PAPER RL: INK Re
r=}
CURSET A.B.S
CIRDLe. Med
=k
IF AtRe235 OR B+Re1S3 THEM sag
IF A-R«AS OR B-RS3 THEN 306
BOTO 25k
MEAT
WAIT Lea
Hee T TF
TEAT
EMD

Fie

TS it

}

—

~

S

mi

IM f. ful

mi

Pm Uh eG) Go Oo AD
i_.3

aed

Tm

—.
iz
mse

SD
}

~*~

a

=.
bed J
—

fea [7 Re ee ee ee Re ee pe Re
mS My i

ee IS

uh

* fai m™.";
st 3
— —_

mi;
wo,

mt

fe % %~ we
#3 PT

or
tw

Ps ag
a-.3 ¢

CHOPSTICKS
PEM

REM CHOPSTICKS

ra oe

Hikits

Res TT Ride | ke O47]

THE Fe

R= DATS Reb. DRA Se oe 1
ret MT Rio! | ORL Se +d
MURSET RL. ke.

Re TAT! Rele f oRL e b+ Li
Fecha TET Pon DAS et ot |
IF (Rites o-ese THEM 1468.
IF Chetek ool oe THEM 14s
DRAW Fi. Rebs d

mrih+ 4

IF CMS 2Se THEM 1 4e

WL TL ees

hd i

GIT Vis

COMPOSER

Your Oric has some very versatile sound effects, not
available on most home computers, due to its use of a
special sound synthesis “chip”.

I've included two programs to illustrate some of its
capabilities; Composer, which generates a random series

of notes and Clementine, which gives a fair rendering of
this well known tune.

1a RET

118 FEM COMPOSER

1260 REM

138 ETH! Rood 1 oko aed
144 P= THT¢ RHO. 1 AL eee +See
LSA M=THT! Rol 1 ke a+
L6@ Hele BMD. 1 oie a+
Tre fist 1. 0.M.&

1580 PLAY tee

Let We TT eM! 1 ae b+ eS
138 WAIT bd

Sh CH= ChM+ 1

218 TF CeHe258 THEM Iie
216 WAIT 2

2eQ@ PLAY 8.8.8, 2

2H EMD

52

3

Po fe ha he ee Re ee Re ee
Gsm AR yy,
TATOO DDS OH B

xt i

Ty fF CF OP Ai wih

~} oD we

f,3 fu

CLEMENTINE

REM
REM CLEMENMTINE

REM

READ WH

IF H<@ THEM O=<H: GOTO i308
IF Het THEN 2aa

MUSIC 1.0.6. @

PLAY 1,8,1.2000

WAIT 45

GOT 136

RESTORE

WAIT Sag

GOTO 138

DATA 2.5.8. 8.3,12.12.12.8.8,.12,-3

Sitormer iar ie lUaite

re ©
DATA w-Ss 1s dlswres le. Tele. 8.6.12. 18,

2,

53

INVADER

Once again it’s time to defend the Earth as you shoot down
a never ending stream of alien invaders. Allow nine to
escape and the game ends. Press the space-bar to fire.

The memory locations in lines 160 are for the 48K Oric. If
you have the 32K machine, these should be replaced with
30672 and 30703. For the 16K version use 14288 and
14319.

{ea RES

116 REM IMVAGER
128 RES

130 CLs

eae BS=9

15@ PAPER 7:IWK 2

155 REM REDEFINE CHARACTERS

168 FOR Je4Pe5e TO 47@s7

17@ READ A: POKE J.A

188 WERT oJ

190 DATA @.380,63,.435,635,.12,18,33,68,8.12

slé. le. 4.8.8

200 DATH Bole. 12. 358,83. 63,835.63, 42.8.3
3,8,1,.32:1,28

218 FOR J=1 TO 26

ee PRINT

ao MEAT

244 PRIMT CHRS. 17 >

200 BS=" "BAH 1S Byes

268 PLOT 8.26, 4

eve PLOT Be. BY. led

256 PLOT @,25,1

290 DS="SCORE: "'sRPLOT 6.8.09

292 DS="BASES: "+STRSC BS): PLOT 26.4,
300 AY=INTCRHMDe 1 kee 242

318 Awa: f=
328 PLOT Ao Ae 2

se4 PLOT AXDAYS” "
SSR Ae=Ae+ 1
s32 IF AX=36 THEM Bs=b5-1

tool "yee! Sore
334 IF BS=@ AND AK=36 THEN 6g
S36 IF AX=36 AND BS>@ THEN 290

LOO oA BG) oo

Wr DH OH Yi

PLOT AKLAY. 2"
KS hE

a

3 IF KS=""0R 2=]1 THEN 326
3° ZAP

safe Z=]

386 PLOT Bx, BY-1. les

}

= IF AK SEK THEM PLOT Ba. Bret. tag
TO 32k

$00 PAPER |

418 EXPLODE

420 FLOT AKA Led

43H SC=SC+18

446 DSS Tree So

$54 FLOT 3.8.08

460 PAPER 7

47H PLOT AKA."

454 PLOT Be BY." "

490 GOTO 2a

BMG PRINT "COUR SCORE = 4S
Bi@ FARER VY: Ioe &

B20 PRINT CHRSC ir 3

Bo EMD

od.

95

MORSE CODE

This program produces random letters of morse code. An
optional display of letters and a range of speeds is
included.

At maximum speed it will generate approximately sixty
characters per minute, which is adequate for the Radio
Amateurs morse test.

The duration of each letter can be adjusted by changing the
value 8 in line 340.

Lis REM

11@ REM MiRSE RODE

Pi 4

CLS

Tt Pie Se

REM RERD IM DATA

Pike J) TO 26

REAC tee io

HEMT

LHFUT "SPEEO ©1 TO Seo" G sr
PRINT: FR IMT

ea TF SPrSee OF SP) THEM cee
SoA TMRPUT "DISPLAY Sven oe? os
24$8 FRIMT

SS Te espe!" THEM Dl=d

27y@ REM MAIN LOGe

hh

Mm >

?

iy LA fy

pee TS Lyk ~.
Mi HE Zi

}

fh Pg MF et Re hE ee
¥ B.
mS

ae ReINT ORME 1 ASE a+ 1
294 IF Ol=a@ THEM 314

235 REM DISPLAY LETTER
SE PRINT CHR R+G4 058 |
318 FOR J=1 TO Leb hain k > >

M PLAY 1.8.1.8

34 SOUMD 1. laa. 9

$460 WAIT SaVALS fi TOse tie eo tl, do
Se PLAY bs Gis ey

Sa WALT

7a NEXT J

mo Ty

A.

on
o

rei

398 FOR D=1 TO S34a-SF

NEXT
GOTO

4 DATA
2h DATA
301 DATR

DM TA

“3

=,

~~ pay

m3
mm ft fy)
£33

mee foo
mm be + £3 0

- 3 + 03

be Fei

e+ eR
i} —_ - ~

- 3 e 3
— £3 i.

ti ~

Rm Ep et Re
i 33

t3 “

o7

SIMON

This is your chance to see if your memory is better than
your friend's.

Oric will print out a sequence of numbers for you to
memorise. You will then be asked to type in your answer. If
you are correct you move on to a longer sequence.
However, if you are wrong, Oric will tell you the correct
sequence — and wontt you look silly!

1860 RET
114 REM STAM
12@ Rem

138 CLs

148 tH]

128 PRIWT: PRIHT

16@ FPRIWMT "TOUR SEQUENCE: os RR OMT

17e@ RS=""

168@ FOR T=1 To CH

1968 FR=TNTC RMD 1 oko >

Sid TS=ST RBC kD

21 RS=RS+R IT GHT St TS, 1 >

228 WEXT I

2a PRINT eS

WAIT 2a

CLS

PRIMT: PRINT

IMPUT "YOUR: GUESS" 3%

IF GFR THEN FPRIMT "CORRECT!" CMs
CHo+1l: GOTO 338

S00 PRIHT "THE CORRECT SEQUENCE Wao:
Fes

35 IMPUT “AGAIN? 5 Os

268 IF LEFTS$¢ 0%, 1. 02"H" THEM she

378 GOTO 136

SBE PRIMT COU CORRECTLY REMEMBERED A
SEGUEMCE OF" GCH<Li "HUMBERS. ”

398 EMD

hy
i
i

Hh

Po ho ho bo
wy

MS Ty Ta

% ~}

fe

58

CHASE

This amusing game has you being chased around the
screen by a strange looking monster to the accompaniment
of some colourful sounds!

Guide yourself around the screen using the four arrow
keys, but keep you fingers moving fast to survive.

The memory locations in line 150 are for the 48K Oric. If
you have the 32K machine use 30672 and 30687. For
the 16K use 14288 and 14303.

1 tt
Lik
Lek
130
13e
140
142

1 Se
1 eke

MM 60 0 ~
Wl MD FD

Mi hee eS
Li Fa

£16

Pte:

REM CHASE

Feit fe]

CLS

PRIMT (CHR Lo

PARER ¢: THE 1

REM DEF IME CHARACTERS
FOR Jed? ate To 47a 1
READ A

POKE Joh

HEAT J

CATH 26. aH I) BE 41,280,185. 3
DATA SH. 4s. Bs. SS Bos Us GS,
REM INITIAL VALUES

ae Pet ae gt

eli Cede

PLOT C,.R,.1l22

peace: fA at

A Mele Mae 1s

BOT v4

A REI MOVE Mr

Te

IF TS="" THEM 31g

Kaeo To

TF KS=CHRSt oe THEM Csil~]

IF KS=CHRS( So THel C=l+]

IF KS=CHRSC LR THEM k=h+ 1
IF KS=CHR S11? THEM Reem 1

59

398 IF R=khO AMD C=CO THEM 498

95 REM EDGE OF SCREEM

400 IF Ril GR Rees Oe Gosh OF Cl THEM
410 ELSE 448

$18 R=: C=C

4208 GOTO 498

43a MUSTO 1.3.1.8

S40 FLAY 1.8.1, 380

$54 PLOT Cooma,” "

466 PLOT Cuks. lee

47H Ose

Cae Meliss

490 RETURN

SAA REM MOVE MOMS TER

Sie TF Mee THEM MR=fki+ 1

Soe ITF Meee THEM fe =fdie— 1

Sa@ TF Moet THEM Mt=til+l

"4 IF Moet THEN Mle

Se@ MUSIC 1,2,3,8

BOA PLAY 1. ths 1. Ske

BME PLOT Moti."

B18 PLOT Mo uMe» Les

B20 IF fd4k=R AMD Mo=0 THEM 668

oe] A ed

Bebe fel tat

650 RETURM

S35 REM CAPTURED

660 FOR J-le TO 1 STEFF -1

Br MUSIC 1.3. 1.6

680 PLAY 1.8.1, 3588

S98 WAIT te

i

692 PLAY
ssid WAIT
Pek Mee T
rae MUSIC Ls 3s
7O4 PLAY 1.8.1
rae WALT Lee
718 PLOT 12.12. "CAUGHT YOU!"
fle PRIHT CHRSC 17 5

Pt BOT T ska

-

id. 1, Db

a - oe

1.
» cake

i

i

4

60

i

Sh CAB GS
Saas

aj “i NEM Ni

REM MATH LOOP

BOSUB Bae
BOSUB Sig
GOSUE Bae
BIT 4a
EMD

DIGITAL CLOCK

This program will display a working 24 hour digital clock in
the centre of your television screen. As listed it keeps fairly
good time but it can be tinkered with by changing the value
of the wait statement in line 550 if desired. If the alarm
function is not required, then enter any number greater
than 23 for the hour when setting it.

Note that the z's in lines 310 to 350 and in line 512 are
lower case. Press the CTRL and T keys together to change
from capitals to lower case and vice-versa.

The

memory locations in line 250 are for the 48K

machine. If you have the 32K Oric use 30672 and 30679.
For the 16K version use 14288 and 14295.

1 eas
1 ie
128
138)
Li
i Set
EE”

-
=,

2 Fe,
ae:
P

3 oF 'si

- “j
Py aa
~.

-_—

ii i

=
a

Pa Fe

fet inh fe ee
x

;
no GN Wa i

.
=

*, % fe a Pe
§ Jaa fv} Pel 3 pes rad

3 fa F
iam ,
NM

ruhi pf
me Pe IN

™“S

Tv.
2°23
LS

ao isk
290
A

62

Et

REM OFGITAL CLOCK

REM

CLs

PRINT

PRIHT’PLERSE EMTER THe CORRECT TI

PRINT
INPUT "HSL | HR
TMPLIT "MINUTES" : Mh
PRINT

PRINT "SET ALARM”
PRINT

TMFUT AOR 7 AH
IMPLIT "MIMLITE” 5 Ai
PRINT CHR 17 3

CLS

2 PAPER 7F:IHK 2

FOR JF4P O56 TO 47 Heo
READ A

POKE J.R

MEAT oi

DATA 63,.63,53.605.63.603.63.63

REM DRA BOK :

ta

Ct T33

WO AAU bh Gf
Qe AWAY BS

a
ot it}

3 0? G3 03 0) G3 i 3

MJ AO
H

fs
=
&

410
420
ate)

-
i}
im

eb ehh

fs
fi

“Eh

hi QV VL DMN WD

i Oo

a: *3

ma ee Ah

fe
i

ACC Ohb eR ERA

et
Ftd

PLOT 14,12. "z2z2z2z7zz22"
PLOT 14,13."z
PLOT 4.14. "2

Pit tas2 01 "2 =
PLOT 14,16,"2

SOS LIE tise
REM CALCULA
IF MiM<=59 TH
Hie bli + 1

Mikes)

GISUE ese

IF Hee=2s THEM 42h

Hr

IF Wee AMD MMA Le THEM 438 ELSE «

aleve

Hu of
_
me

TIT RR RE ee EY fea
BIT Sie

IF MMeS THEM 45

THe" +S TREO AR OF eB aha”
BOTO 318

Ie HReo THEN 434

TSE US TR AR ee i
RIT dks

TSO eS TREC HR be +E

REM FPRIMT Tithe

PLOT t4.14. 7%

PLT 2a hee 2

REM DELR'Y

4 FOR Fl TO 66

PLOT dos. d4.%
WAIT 8?

PLOT Li. de.
IF HRA CAH Gre Md SAM THEM & 1
MUSIC 1.3.3.8
PLAY 1.8.41. 18a
MEAT F

Mis iitd-+ t

BOS UE Sei

GIT ar

Mss Thee ft D

S40 Me=RIGHTS6 MB, LEMS Me 1 2
650 RETURH

INKBLOTS

So you want to be a psychiatrist. Here is your chance to
discover the dark corners of the mind.

This program will display a random pattern of inkblots
similar to those used in the Rorschach inkblot test. Some
strange and amusing shapes are often generated. Test
yourself and your friends to see what they see in the
shapes. You could get some very interesting results!

Lee REM

L1i@ Ret TMK BLOTS

{2a REM

138 HIRES

p4a Pelle Ree 1 ok ot 1
LS PAPER F

168 TTT. RHO" 1 oe o+ 1
1?@ IF [=F THEM ie

sa THe |

{3@ RRB LNTC Rie | ORE oo
2h Be LMT RMD | ok Dee obo
218 C=l+] |

2e@ TF ie? THEM Sik

eee

ask R=]
2é@ CURSET fe bie

gam CIRCLE Fol

26a Reki+ |

efa IF Atke235 OR BtRe1Ss THEM Loe

260 IF A-R<g OR B-ReS THEM 192
290 GOTO 250

}
ms ii
i i

(a LI
WRIT Leta
IITHt dusk

ie

st isi

i

at 8S
:

f*, 3

paf t
ot, sw
Fxi il}

65

WEATHER FORECAST

If you share the view that all weather forecasting is guess
work and that the meteorological people make it up as they
go along — why don't you do the same?

You can throw in hurricanes, tornadoes and floods if you
wish, and you might even be right one day.

Lee Ree

118 REM WEATHER FORECAST

lah REM

i346 CLS

Lee FR IMT

136 REM RERO IM DATA

Leg FOR Je] To 4

LPR READ Ae Uo Be oe Lio Be Uo eee

LSet HER T
P38 DEF FHS HOLA Te RMD? 1 as oe 1
SL1@Q PeRIHT “GOOG EVEMIMG. WERE ITS THE
WERT HEF FORECAST. TRAM LSAT Wi te
oom PR TMT ASB PMA boa
ek PRIM T Bebo FRAC 4 > 34
Soh FreiMT " OVERKMIGAT WILL CLEAR. LEARY
iMG Titre gig 9 5
2S Pe Lid] Aa PMA boo
na rt I] +H
wo Fk is RIMT "THE WEST WILL Be ° 3
eye FPRIGMT Aso FRAG 4 oo;
2S PRIMT " WITH %;
eo PRIM ial Frit oy
o60 FPRIWHT ” Tt THE ERST., "
SMe FR THT
S18 PRIHT “Fe TRAVELLERS. MAMCHESTER
IRPORT 1S "3

¥

fh FRI) Ce PMAC 42 23
A PRINT ° RAD ALL ROADS Ree

S40 FRIMT EssC RP MAC 45057,

S4e PRIMT

228 FRIHMT “THE OUTLOOK Is °:

S6B FRIMT Apo Meo hb op

or DATA FINE. SHOWERS. A DROUGHT. FOG BO
WIND. SLIPPERS

388 DATA CLOUDY. SHOW. FRLLIMG FROGS, FLO
ODE Diy

238 DATA MILO. FROST. THUNDER S TORMS . RC
REO BY FROGS. PASSABLE WITH CARE

$80 DATS TAC ELLEDW A PLAGUES Ge LOC us TS
»BLIZZRRDS LM LOMGER USED

410 DATA FULL OF POTHOLES

67

EGG TIMER

Here is a new version of breakfast television.

A working egg timer. You will be so fascinated with
watching the sand run through your very own high
technology egg timer that you will probably forget to take
your egg off the boil. If you are the hard boiled type you
should increase the value of the wait statement in line
425.

1 eat
11t
Lk

ue

fa}
Ni

i a}

i
iS? TL CFP fe

i?

—*
-=". .™.
* & 2

i3 “Ey
—
asi z

:
i.

mi UD
x,

wkd
wie it
pe]
on Fa kal
os * =

Peet
Peli "|
REM

EGG TIMER

HIRES

THE cS

oe

Petes {1

OrtiAb TOP

(ibPesk TD Ea Se,

oP bd
DRL
CoP
LR
DORAL
Ricaai o|
Core bd
ORAL
De Pd
RA
DR AL
CretAbd
ree

Fir

DRA
Mises 7

ete 4]

mo. se Seer, te * wage

‘:” ee 3¢ ]
e f=

Por ii r %. Mc0el oe

DRA

Ae LC oT
RSET

bE idk y jf

is bi I

sae Hae! rae i
~19,1¢8.,1
=195,6.1

hls highs]
$host. 1d

am chict yj
P55 58.
~i@9,~1le. 1
~(S.s 1

bay mck its
Pilke “ce
1 Sig
Liakiy ola d
Sel ks 1

ro

oe aS Ee
Lies dsl.

wr eft l

CURSET 114,132. 1

bart Pb

wsetis l

4 {53 fe) tpt
VO
mS

oT a
isk

CURSET 119, 13%, 1
DRAM Sy Bis 4d

REP TAL Lite
Rite! Ji Li Tm Leo
CURSET 141, J/,8
DRAW Si. Gy

PUR Ke) TO Le
MURSET Lei. Loe. 1
MURSET Lees 14, 4

| WAIT Se
5 CURSET 128,143, 1

CURSET lei. 145.8
i) oe

CURSE T Led, Skt, j
RAL 4. 8s 1 |
NEXT

eT

EPs

69

FIREWORK

Here is a crackerjack for your home entertainment.

You can save a fortune, keep warm inside and spare your
pets feelings by having your firework display indoors.
Your high resolution screen will display a spluttering multi-
coloured firework with accompanying sounds. You can
even change the shape of the firework by playing around
with lines 200 to 220.

If you want to change the sound effects try lines 270 and
2izZ.

{ee REM

Lif REM FIREWORK

Lee Ret

L138 HIRES

138 REM BLAMK SCREEN

14@ THK ft

145 REM DRAM FIREWORK

15 CURSET L1e@.1 78. &

156A DRAW woe, 4d

17k Cake Fld fakis |

ee DRA 1, 1

190 DRAM Ss 4

{as FOR Je={ To Sa

20@ RLS LATO RAG 1 oa Leet 430

S18 CURSET Fi. fe. @

228 DREAM -rei+di4s. i441
MEAT

REM OLCire Ss

Fre wit Th Dee

Feiss TAT Perdido ab

MK Fe

MSI aa sacs

PLR ble dots Lee

WAIT iS

HEMT J

REM ERASE

FOR Jece TO (Se

-
-t
in

hoof Po fh No fo fo
7 Mm ch
iM?

. Fs
ru

<

LOMO OF wpa: CRB Oo te

iit i

ti, Tue fh 03 Pat

<x".
a”
st

3

~J
o)

eH

iS

G3 tot

I

<3

Mm % &

ip? f33

too Ee

ps
,.
i333

CURSET 18, J.@
DRAW Re, Bh
HEMT od

LF H=1 THEM EMD
WAIT Say

REM SURPRISE
CURSET Lie. L33,a
DRAM Hon~d de dt
MLPST Sy Su 3.
PLAY Goda ds. lage
bye |

SOTO Bae

MAZE CHASE

Maze Chase has you being chased around a maze by four
evil looking blue ghosts intent on your downfall!

You can move around the maze by pressing keys O and P to
move left and right and keys OQ and A to move up and down.
Points are gained just by staying alive.

You will need to keep your wits about you, as well as
moving with lightning reactions, as this game needs some
skill to play.

1500+ can be considered a respectable score.

The alarming rows of small z's in lines 690 to 930 form
the structure of the maze, z being redefined in line 620
onwards as a solid block. The structure of the maze can
thus be easily changed by typing in a different formation of
ZS.

The memory locations in line 620 are for the 48K Oric For
the 32K machine replace them with 30672 and 30695.
For the 16K version use 14288 and 14311.

{fie REM

Lif REM MAZE CHAS

Lew Rel

138 GOTO eae

Lee REM MOVE

1a Tesh

Lee Te Te" THEM Lew

17a KS=TS

Lae Ree

138 CH=

Set TF eee" THEM Oheid—1
2iA TF hS="F° THER DhMeIh+ |
See Te Re A" THEM Ridseid+ jf
eo Tr R=" THEM RMR 1
ede Jr CASS? OR CHS. Oe RMSE Cpe Re
THEM 35

250 H=ESCRMC CH. RM >

72

26 TF swelie THEM Soe
eri Te a= Tekh lec
268 Lr C=O AAD RM=kRO THeh Soe

MUSTO 1.3.1.8
a ce
PLOT CO,RO.” ”

wat 4g

Hew
a
Mi i th i mi Hs RM

35 C5 3 f
—

326 PLOT CMR. les
Sk Rl kt

<<

?. *
+
8
ai i

-_ a

:]

i
we Os
ina? i

Ossi pd

RE TURN

REM five GHOSTS

re TMT! etidtoe | oe od

IF Hist kt. do=eh THEM 438

PLOT MSO. 22. HS¢R. Lo. STORY
Mis Rls Led lod She RMR ey
ebta Trt ke Ge Mi ety et a di pt 1

458 1F STRCR>124 THEN 47a

=.
?.:
a

LG
it

+s fg? fs
*}
mi

Is
fs3 fr} ee
Pe
—_>

t., , Be
oe Se SS
—,
ae ie ts

: 2

esky STR fl esis

47a PLOT WSck, shit ee dope Lee

Set PLES TS ae Pia; Loto i. See
$59 Te NSt RB, 2 CN THEM Fe

SG FLOT Mist hoe oO SS Bd 2S TR Bo

od Ne Po el ase, Pel tl ake “Lott, tated me fod Si Fe ve a
eee Al te EP, Fe! RE ot OA ed pes, fr ta sa het fr! ’ 13 ac

630 1F STRCR 124 THEN S5e

Seek STR Pl ess

S30 PLOT MSC Rs 2 )eNSCR. 10.124

S60 1F RNENSCR. 1) BD UNENSC RS) THEM

-

eT
m

RETURN
REM START
i
PAPER 7: THE 4
REM QEFIME CHARACTERS

-.i ee
2 |

{8 os,

i a De

Li iF =

Py ms
at

£4 8 a

23

“¥.

32% fat

rT"
“ioe eS TS LO

.

S28 FOR Jess TO 47ers

Fett Rei A

Beek ROK i A

ASe Mey

Pe, Bo Bel DATE Bedi Reda indy Bade Rocky Geos
BR DATA 2) 2b. ee. See de el. Se

oe

ater Phe,

mink DATA Dito ki 4S Gis. So See kis AS

73

7E

eoeee
Seeee

PRINT MA
ne -Leaa eee

PLOT 1::

PL

aoe a iA
Ma

te,
eos
fos

oes

’
'

i tes ie, eo des es eo

dee

J ow =

ap! epee ar a
cas Sens hose shove Aece Bess

erage

3

a

“ -

5 ae

aa ©,

*
®

1

ones
“
'

oot? , be vie *
stoee oleee ateee

pe sone

«+ vllewe oles.

7

eongh ereyt erage oe
fo... eee rl ote

wbeee fe

iw or ooeye
feos

-
Hess eee

~°

ie
sfece
sig 99
Bere
vee ch]
ahewe
ice
efove

“e
ri

'

“
1
oo

Leda ez
Le des.

Ae

”

Wy ee |

ry
j

re
“ore

* ~
| |
bo aid

oe
~
”

PLOT
PL
PLOT
PLT
LIT
PLOT
PL.

Fl

j=

\
tl
ma
4
4
Si

I

cn

oo

Ped
*

oo
|
el
«oe

t

”

“0

é

‘ehta

~
Cat
”

hee
ff
rae)
Gwe’ %
-

$
m1
wrt
oy ¢
“~~

t
a
ene
eet !

aia
Le, feu deo dee
kl

3

i}
<3
at

ee oe et
tae tse '.

f3 rm ;

ist ia!

TT. ot
a} iy
ws
¢ fa fh ® MO Bo:

:
:

=

Nd, es ek ie eR Gen

;

+ i

| AT
1 Res

1 eae
1 Lees
Liie
a ee
Lise
Lise
1 l4te
LiSe
Lise
Lire

a!

3

~~?
—

—

re
a3
pas

i f
=,
i}

3
*.

a? a3 i

Pipi
i
aa

> fas vos,
. . _ . bd
°.4% mS :
3 $2
5 on

ef 3%
ta
ms i

« o o -~ ote, * - )
eo serio eaters en tes Sea tee cts Sn tha ee
wal

REM DIMITAR

; ont +E seme og? onege amnge eetgt anage et0g" rege wen gt 804? poegs e004! eh0ge songs eneg® onags songs onng® cnnge
LOT eel. 2 222eezeree PETE TTTTIZ
4
e0g? S6Oge eee ——- omg seege wttge
thi dedo hi tidete: me
a iIT i pe get Ti come
we ote UJ Geer tee 4 atowe
vee
z=
} fit | TD De nage saage wee sctge gongs nese come ceene coe? conge seage exogs seegt snag gongh osege songs anage neeg?
fase bad Lé@Qmov z ZSLAeeOAeae. RManeneeeene
iB)
atnge Srege erage eoag? ofage cong
Wn de dn, dan, de, de he ee
i] ee ved oh I
PLOT loge, "=
wap I
oe
ete oo . “ oe .
b org hee Fd enge onage snage onege snege coege on0G? songs sncgt svete eenge aang? ott? s0ens anayt a0egt onege cenge onngt entge gangs ctept onege
‘| PLUT Le 2S, slice dlove cfkce Bese eSoan shave vines chown choco voce oes chose shece clive clove dots isve sites slate dla chats ,fore shone

WLS
Heol. does ee toes
Mit eu d bee Mie aoe ose
Mas ay 1 ase ist hy St os
Met chy [mee A ah et bees
ae

Pei TMT CHP | 3

PLOT te.8, "SCORE = "
Fike ote] Tm 4}

ST wea

PLOT bine bs at addi J. doa. Dated
MEAT wl
Petre ies |
ret Tra T
el ee |
rede | ott Pe |
CMeLe: Ctie1
PLOT My eM. Lec
PET PUA TM LOE
OISig bee
SUSE | Se
PL beck ee 9 ct Sa
(eet 1

fy BE ac oe Tt Bs

miMpeahe Tish Tie Sh LER eb ae do
PLOT 26.8, 55
DOT Tie

REM TALIA T
elie Jele To f
Music wd a HA

i

TO

Pd - | brad
nd

ee 1

ey

7S

1 A
m3 Ty Ti

I
3 GX

a

m i i

Lito fo ho ha ho fa fa}

mem TH Lo

PLAY 1.8.1. 1888

WAIT 2a

HEXT J

IMPUT "PLAY AGRI 5 Geb

IF LEFTS¢ Ga. i 0="N" THEN 1388
Pity

PRIWT CHRO 1? 2

EMO

SNAP

Do you find that everytime you play Snap in your house
there is an argument about who got their snap’ down first?

Now you can let your Orictake the strain — as long as none
of the players have hands like sledgehammers. A pair of
symbols will appear on the screen. When they are the
same, player one presses the O key and player two presses
the P key.

Oric will be the judge and award one point for the fastest
response. The slower player of the two will lose a point.
Cheating will also cost the culprit one point. The game
ends when either player reaches 20 points.

1a REM

118 REM SWAP

i2@ REM

13@ CLs

142 PLOT 14.)2."5 MAP I"
15@ WAIT See

166 CLS

i6S PRINT CHRO L? >

17 PRINT PRIMT

REM SELECT SYMBOLS

woe,

1860 A=THTC RMD? 1 OAL Eo
1S B=THT. BHDC 1 ORL e943
cht DSSS CAR A +” ied Ot: : De
2he MUSIC lads Ss 4

se} PLAY 1.8.1, See

2i@ PLOT 14.12.05

22 WAIT &

See PLAY BB et A

225 FEM LOGE AT KE'TEQRED
feo KB= KES

soe TF Ks<??" THEM eee

25@ IF ASB THEN 230
260 IF KS="0" AND A&B THEM Pl=Pi+1
27@ IF KS="P” AMD A&B THEM P2=P2+1

t -
&

77

Gi GIG) G9 GG oo to PO fe fh
fs f23 hj Fat {Tt} Fae LG i i
WM HM fy AD LAD

78

IF kS="O" AHO ACS THEM FPi=Pi~d

TF K$="F" AWD AS Se THEM Po=ro~]
REM FPRIWT SCORES

DS="FPLAVER OME: "+S Trp PY ot” FLA
THO: "+S5TRSo Pe 2

IF PieviS OR Perils THEM 342

PLOT 2,.2,05

PLOT 1132:;2

Bits Lae

EMO

ENTRAPMENT

You will need to be very friendly with your partner to play
this game. Each player has to control four keys to stay alive.

Both players control their own snake which winds it’s way
around the screen. If a snake hits any obstackle, including
it's own body, or tries to leave the screen the player loses.

Player one uses keys E, S, D and X to move up, left, right
and down.

Player two uses I, J, K and M as player one.

The memory locations in line 620 are for the 48K Oric the
32K model uses lines 306 72 and 30687. The 16K model
uses lines 14288 and 14303.

1@a REM
11@ REM EHTRAPMENT
128 REM

13a GOTO 6ae

14@ REM PLAYER OME
1SG TSskKEyS

16Q IF T="" THEM 16
162 IF TSC3"E" AND T
AWD TH<>°D" THEM 18
17a KS=TS

i6@ IF K#="E" THEM Ril=R1i~1

190 IF K%="s" THEM Bl=Ri+4

20a IF KR="S" THEM Cl=C1~1

210 IF KS="C" THEM Cleci+4

215 REM EDGE GF SCREEN

220 1F RIPES OR RI<1 OF CLS? OF C1<4
THEM 240

290 1F SCRMCCL.RL2=i122 OR SCRMC CL. Ri t=

{|
Sie AR Teas) ee
bh

123 THEH 248 ELSE 326
235 REM CRASHED

e4a FOR J=1 TQ 2a

254 MUSIC 1.3.6.8

H

~~,
—

268 PLAY 1.@.1. 508
278 FLO Clini”

79

WAIT 18

PLOT (iskils lee

HEMT

Petits

PLOT Ci,Ri.ige

Ri Trek

REM PLAYER TW

T=

IF Te" " THEM Fe

IF TS0>"I" AWD Teh e°M" RHO TSe 2"
D The" RK” THEM 4a
L_Spax 7 6

IF L#="I" THEM Re=ke-1
TRE Ls "Pd? THEM fécctesitich+ |
IF Use" " THEM Ce=Ce-)]
4°54 TF Le="K" THehd Getsitit+ |
444 IF Rer-e2s OR Red] OR Cera" OF Ca<l
THEM 4544
$44 TF SCRMC Ce, Re g=lee De SCRA C2. Ra o=
123 THEM 430 ELSE Sse
$47 REM CRASHED
34 FOR Je] TO 2
46 MUSTO Lo 4. bs
474 FLAY 1.8.1. 568
Seta PLOT Cea ke!
438 WATT ie
sr PLOT Ce. ke. Les

S18 HEMT wi

atl Petit

iia PLOT Ce. Re. les
BAC Fe ET Ld Pe kd
535 REM START
rl LS
BML FEM MOVE CURSO
Ee FOR f=. Ta ee
ee FR IMT
BMG MET tM
Hl PAPER FL Me 4
B15 REM DEFINE CHARACTERS
S26 FOR J-47e56 TO 47 ert
Be READ A

fames
i

MY

fh O5 0) 0G Go 3 G9 o£) 83 fe

Yo OO So Uh es

M Fh Hs M

rt. , %

a isi
eS Ti

em)

-_

eh es
Tm 7

hd

mi ut

80

t

-¥
is

7; 0

tay

“vr.

: iy

i

AGGUOS & 5

i

a;

Phi foe MOD Tah vb

SEN WE ME a Ge

71th HE
MH Mik & &

PInKE ol A
| oe

DATA S26. 38.63.62. 25.55

3

DATA 2a Se BS be. 28,838,808

REM INITIAL VALLES
Rise

ied

Kea" 3"

Ras24

em +, oonng
(eels r

"eee

Ls" 1"
REM MAIM Loop
GUSLIB 372
GUSUB 150
GOTO 740

METEOR RUN

Caught in the middle of a meteor storm are a number of
helpless aliens who need your help.

Using keys O and P to dodge the meteors which are
hurtling towards your spaceship, you must pick up the
aliens to gain extra points. The memory location in line
160 is for the 48K Oric. For the 32K version use 30672
and 30695. The 16K machine will use 14288 and
14311.

Lee RET

116 REM METEG rit

Lee Ret

13a Clos

135 REM Thlikthd OFF CURSO

4a FPRIMT edbese 1 3

120 PLOT le.12. "METEOR RLM"

132 WALT ee

12S REM DEF THE CHARACTERS

Lee FR eh PE TO bf PRS

1? READ RRR oA

Lea MeeT

190 DATA 12.38,62,53,.63,31,.36,12
cMtt DATA ie. 438. 45 Aisa dE GS Lit se
218 CATA B. 38,635.43, 63,142.18, 53
2S REM INITIAL VALUES

So eS

geil Cei¢

Zee WLS

eed FOR fd] TO 2e

ets RR DMT

cen Hea T 1

ea’ PAPER 8: TMK 7

eek Reh TMT RMD | coRISS ok Lf

eee IPF RHO! I o>.9 THEM PLOT BM. ee, biG
MT vt fod Lf

wir el PLOT Phd es oe”

et a or Od |

cite IF mie Lise IT Sle Las THEM FOOT i.
Fe, 7s fatzm fet J

24
othe)
et Sd
a1i8
ae

¥: 3
a i) F

fo Nes
v.
ao

")
MM & uF

MF

af igi iy
a

if

el

H
Mbit o
i? He i

Earn aeers
igh
Tm i?

.
*)

420
AG
a
460
Aa

at
* ¢,

chs kA
$30
ma eal be
SoZ
a
i ak ea]

iL

red sat to

ot

i
Ve
iat
Le

wt Li

ow

CAH

+i

wm 9 LED
3 si My i Me

io ee 7
ers

tay

Hel

~r.

fs, he I
Feb bs
Freie

IF Rees THEM R=25

PLOT tee

PRIMT

seh Cos Fel

IF #ieled THEM Se

REM ALTE

MUSsIl 1.3.5.8

FLA Ls. 1. see

1 [ss Sob KA

BLT S/H

ie fA POLLS Liat

IF SCRMOC. Ra eoe THe 438
REM LOOK AT KE TRORRG

a: Ed ea

TF RS="0" AMD Ded THeh Oli
PY’ ORM C38 THEN mel+ 1

Tr piss!

Poul Late ="
MIT el

REP RASHEED

PAPER 4

EXPLODE

WAIT Lee

PAPER

Pile fete Te : STEF ~4{

MUSIC 1.2.14,

PLAY 10.5, 100

WAIT 25

MEM T fl

PLY fA, ay ay a

PLOT Le. le."G AME en oe oe
Fhe TPT

IF S0>HS THEM ee

PRIMT "HIGH SORE: "ahs

PRINT

PRINT UCP CUR! SHORE: "4 Sih

ke LPT

LHPUT URL RIGA TM" Go
TP LER Te sb. doe” TH
vo {sae Bl

eS

ie
Ree
iy
13
23

658 GOTO cee

S56 PRIMT CHPsBo 1? 3
690 PAPER 7: IHK &
fee EMD

84

BOMBER

You may have played a version of this game before in an
arcade, but this time you only have one life!

As the pilot of a plane you are faced with a desperate fuel
shortage. You are circling down towards a city which has
been cleared for your crash. Now you have one last chance.
Can you bomb away the buildings and clear a runway
before it's too late? Release your bombs using the space
bar. Be quick and good luck.

The memory locations in line 810 are for the 48K Oric If
you have a 32K version use lines 30672 and 30703. The
16K model uses lines 14288 and 14319.

Lee REM

Li REM BOMBER

Lee REM

1S@ GOTO skit

166 REM MOVE FLAKE
196 PLOT Px.PY: Se

2H PREP R+DR

eS REM SCORER EGGERT
210 IF Fa?l THEM 230
22a PCS=CHRS. lee 2

238 OR= 1

240 PsP + 1 3
245 REM SCREEN ECGET
25@ IF PRY Ss? THEMeESe
264 POS" CHS. Ls 2

ara DR=~ 1

258 PY=PFY' +1

290 IF SCRMCFRJPY?=le4 THEW Lit
254 PLOT Pe. Pi’. PS
S086 TF PRESS AMD FPYsie THEM lee
sak RE TLR

26H REM CROP BOMB

370 IF B=@ THEM 56Q
388 PLOT BH. BY."
390 BR=EK+60

85

C0 Bisby +e
= REM EDGE OF SCREEN
$14 IF BYoss Gk Bace De Exess THEM 314

Goh TF SCRMI BH Bod bled THEM Sse

$e REM BUILDING WIT

4:38 REPEAT

440 FHRFER 1

$350 ERPLODE : WAIT 3

$60 PLOT Be. By. les

4° Esky 1

$50 FARPER 7

$3h PLOT Bea blre da.”

Boh Smee Li

SMA UTIL SRM! Ba bey os ede

LR Ess

ek Eas

Sse bei sskel

“Gh GOTO Sse

S26 PLOT Ba.,6'r, ”

mate FES Tbe hd

PRIA RET LE AT RET RAReD

je Tr KEY Be OF Bled Cre B=] THEM
7 RAK

BS REM DROP Bites

Reh bee J

Base Beer eR bse ys Ble

ebet ELE tL

See MUSTO Los. 3.8

BSt PLAY Jo i. ee

Yee RE TURM

Plie PEST FP Tt T aie EtG
Fi SBS Tee St |

etl [ts Sahay ae oP ae
Se FLGT 12.8. is
36 SS TRS BL +e”

—
fyi ti tly

.
+
wT
at

MS=k TAT. SB LEMS Sao | 2

r PL i) 3 ar J i ‘ te] S5

Pees Ti deh

CLS

POR wid TO SF PRINT WERT J

SG ca
mm @

7 a] my A} -) ah

7
mM
A}

&

S05
S18
Sec
A308

meh ca
oy Oh y
fon

4e,
ay tet
rt sy
eo met

35)
~“..

$

+i
m

TSO SM

mm UG

Ok
i?

Rome
isi
mt

So
ot
waeh i
Pal
ae
Para
a fa td

ta

fi AG

vr.
ia

:

iF

v3
oe
eS

,
t

iT
>

M™ MG My Mi ie 4 We pc
MM MT, bi:

‘TC;
“Lap Oho © 40 62 APG Ao

a ee ee

Le
wy

M > f

Pert Rt RE Rt Ree RE RS ee Re Re Be OLS LG
iyi

aoa

DEF IME CHARACTERS
FOR Je47a56 TO 47087
READ APPCKE JR

MEXT J

“ome

DATA @. 8. 40.62.65 ,5 0.6.8.8, 8,354.6
kai. fA
DATA 63. 45,63,. 435,635.45
2eleteu els tesue
PRIMT CHpebe 1? >
REM BUILG City

POR Jes TO 36
FOR KIT! Reo! | oe eee TC
PLOT Jakis Late
HEAT K
HEMT oJ
REM IMITIAL FPOSI TOMS
PRS Ps] ROSH Le
Diktoe Jo Slee

REM FRIMT HEAD IHG
Sas Tee So
$=" SCORE :
PLOT Sy Gt. Pe
SB ms 7 fete ESL
MS="BCMBS : "+R TIGHTS. Se. EMC Se To
PLOT ht. By fe

REM MATH WOOF

BOSWIE Loe

BOSUB Se

BOSE See

GOS FL

WAIT 3

RITE Leki

REM CRASHED

PAPER

EARLODE

PAPER +

EMP LODE

PLOT deo de. YOU CRASHED | F

BOT 1272

RES LAMDED

afte 4Ote, at Pre, , em,
663.63. 42.2)

“oo

cay

+R IGHT SC SH, LEM Sed 9

87

PLOT 9,142. °A SUCCESSFUL LAHDIHG I"

PRIMT CHRO 17>
IF SCDHS THEM HS=SC

PRIHT

PRIHT “HIGH SCORE: °sHS

PRINT

PRINT: PRINT "YOUR SCORE: "3c

4 PRINT

IMRPuUT “PLAY AGA" 3 os

IF LEFTS¢G.10="M" THEN 1350
pot a1 a

RES TORE

BOT sae

Et

KALEIDOSCOPE

There are not many micro computers which can show off
their colour capabilities in under 20 lines — but Oric can.
Against a varying background Kaleidoscope will plot an
ever Changing series of colour blocks.

Although quite short this program will provide a fas-
cinatingly hypnotic display of the colour range of the
Oric’s low resolution screen.

1a@ REM

185 REM KALEIDOSCOPE

11@ REM

128 CLS

125 PRINT CHRSC 17)

13@ RI=INTC RMD 1 aaS 3

143 R2=INTCRMDG 1 RBS +4
15@ PLOT RL Re. 254

168 RS=INTCRMDC 1 9x36 3

178 R4S INTC RDS 1 k26

180 RS=INTCRNDC 1 Ok? 244

19@ PLOT R3.R4,R5

195 IF RNDCL?>. 01 THEN La
200 RGSINTCRNDG 1 #6 04+]

219 INK R6

220 R7=INTCORMDS 1 #6 2+]

230 PAPER R?

248 GOTO 134

89

ROAD RUNNER

The brakes on your car have failed and you are weaving
down a rubble strewn road. Your objective is to stay on the
road, avoid the rubble, and run up the highest mileage you
can. We have given you achance to notch upa few miles by
letting you have three lives. You will need to be able to steer
the car so we have also given you two keys which are
defined at the beginning of the game.

Leite Re 4

LAS REM ROR RUMMEr

Lie Re

se a Oe

114 PR DMT

Lie ITMPUT "WHICH key FOR LEFT’ ILS
18 PRIWT

2M oTHRFUT "WHICH REY FOR RDGHT ? 3 be
2 RLS

meer? FLOT ROD

Fite wi] Tm fel

PLT eh Ks i ms

MERMT wu

Pik! Jeet TO ws
PLUT .JvKe leo
HEAT

Biss TT ere LoS o+ bf

PLOT RoaukK. les

2a RETR

cas REM DEFINE CHARACTERS

SLA FOF Jis4Po5e To are d

cea READ A

23G@ POKE J.F

2a Hee

230 DATA 12.63.63. 34,635.63, 12.8
eve DATA 83.63, 63,63, 53,63, 63, 63
2509 REM INITIAL VALUES

“SR FRPER Fs TMK &

3 Fes
on

a i
be
3

-_
ii
T:3
—
am

GS Sh Gi

=

2. re

(wit Wi ap AB oF

_—-

r

ye,
fe fi

ii fF

90

Xi OE

mf

Mi 0303 05 09 GD Po he fh Ph

LES Bo GIR TH oO

VULVA DO BH As

it;
im

—
~

zi m

=.
iz

$2 $0 G3 3 3 G3 9 3
> 4D
AM LA M

>
pt ps

el
Saad
ea
“hh
Saal
ST
a
hie
$3
4%)
ba sal
a
ial ol
Rystkel
alk 14)

kel

Fe = 1
Rete |
r= 1s
Ree

Pk Kes] TO Se

Guise {L4e

MET OK.

bes J]

Lif seis

REM SCROLL

Pree) MRSC L133

Rell LOGE AT REY SOFRD
Kak By

IF RSL THEM Ct
IF Kee THEM O=h+]
IF SCRMC MR oeae THEM be
REP TOLL Ds Tor

EARP LODE

re]

TF Liveta THER Sei

REM SAFE FOSITIOM

TF hs THEM ell+ |
IF KS=R5 THe Cale]
PLOT G.R,.1¢2

CUS Lie Li
PlsRL+ TAT. RMD! 1 ookts bd
ed a i

TF Rife Oe keess THEM +3
re fs ast og Ls fe

SOT web

PET Y ER PET Tee

File fel To eo

Pr LMT

Meet i

PRIWMT "TOTAL MILEAGE = "GSC
PRIMT CHPsC 1% 2

Eb

91

TOWERS OF HANOI

Here is an opportunity to prove you know your numbers.
Towers of Hanoi is a simulation of the well known puzzle
where you have to move a column of numbers from the left
hand tower (No. 1) to the right hand tower (No. 3), in as
few moves as possible.

Seems simple, but remember that you can't place a larger
number on top of a smaller number. Oric will ask you
which number you wish to move and to where. Get it right
and congratulations are in order — get it wrong and you will
get that awful message “you can't do that”.

Leica RETA
1@e2 REM TOWERS OF HAMOT

124% RET

1@6 CLS: FPRIMT

Leis rds= 4

149 DIM Acs. 11>

11@ TMPUT “HUMBER GF LEVELS <1 TO dao"
IMD

112 IF HO< 1 OR WOSLe THEM Lie

114 FOR T=li-Ho> To le

Lié ACLs Tol

118 HEXT I

119 FOR D=1 TO Se: PRIM Heat DB

128 REM FRINT TOWERS

tee FOR J=1 TO ie

{24 FOR fd) TO

if o%:

126 IF Act, 5-8 THEM Le

128 PLOT MES. J+ 3. STR. ACM oD

138 WEXT [4

{ae PRIWT

134 MeeT

136 FOR T=li-~ ~ND Th Je

138 IF Aca. Loe? THEM 146

148 WEXT I

42 PRINT

144 PRIWT "CONGRATULATIONS! COMPLETED

IN ONLY "Gls" MOVES" - END

92

146
146
{Se
eee
134
156
{Ss
Leses
162
1 4
Lie
1 fates
17a

os
“jot
Po

2

~j ~~

eR GSES Ses Se 3
mo

UG 0G 4b
= fh} i

Fe [tT

Mra rtie f

TWIT PVE FROM WADIA TOME Gk
Pre IMT

REM WALIDATE IMPiuT

IF Keil OR KSS THe i Se
FOr T=] TO 12

IF ACK, 1] oe THEM les
THA Ko 3

ASK. I oe

SOTO Tre

HEMT I

GOT tae

INPUT "TO WHERE" aK

Prt TMT

REM VWALIOATE INMEWT

IF Kel OR KSS THEM Le
rok l=, To de

IF ACK Toe THERM i Se
IF ACK. DOS TH THEM FRIMT “tll CAMS T
THAT!" GOTO lee
ACK, Ti 9=TH

GOTO Lee

HEMT I

Ae kK. Leos TH

BOT lee

93

PROGRAMS
TO MAKE YOU THINK

The following selection of programs is
designed to show off your talents.

95

GUESS THE NUMBER

Here is a program to give the younger members of the
family a chance to shine.

Oric will choose a number between one and a hundred.
The player will then try and guess the number chosen. If,
and it's fairly likely, the first guess is wrong Oric will say
“too high” or “too low”.

Once the player has got the high and low range they ought
to be able to ‘squeeze’ both ends until they reach the
number. Oric will then tell them how many guesses they
needed. Kind parents can, of course, begin the program by
setting the upper number at twenty.

laa REM
118 REM GUESS THE MuMBeR

i2a REM

138 CLS

140 PRINT

138 PRINT "HELI! PRAT

180 PRINT “THIS IS A NUMBER GUESSIMG 6G
AME. Tor"

178 PRINT "SOING TO THINK OF © MUMmER
BE TWEEN”

(8G PRINT "1 AWD Lag." PRIHT

a

LS PRIAT OO TRY Aid GUESS WHAT IT ff

WALT SR

A PRINT

PRINT "THEME IHG, eee”

PRLMT

AWAIT Sa

240 HE THT? RMDS | ORE +4

2465 PRINT

250 INPUT "MHAT S YOUR GUESE ao

2352 TReTR+ 1

268 1F GoM THEM PRINT “TOO HIGH! Tey &

Loin HUMBER. GoTo fee

oo
~? *.
—

We ee weteaeee © OF
r. --
2 ? -~ -

f°: Fe mee ol Set
ee * .

st", I,
af a3

.
8 é

32
Fa % + 7
faim i

$43 $4
*
F .
poten
-—_

Te".

97

IF GAbH THEM PRIMT ° TOO Loi! TRY &

GHER HUMBER. "GOTO 246

PRIMT USORRECT IOC: RR IMT
PRIHT "YOU GUESSED IN “i TRi TRIES.

eon PRIMT

98

TREG
GOTO 218

P.
-

LETTER

Alright, you may know how many letters there are in the
alphabet (26 actually) but could you tell the difference, in
numbers, between D and R?

Oric will print two letters on the screen. Press the key
corresponding to the difference between the letters and
see what happens. The loop between 200 and 250 givesa
time limit with accompanying sound effects. The time limit
can be changed via the wait statement in line 232.

Lea RES

11@ REM LETTER

Lek RET

138 CLS

140 PRINT: PRIWT

145 FEM SELECT LETTERS

LEIA Tc RHE 1 RSE +S

= LTT RMD. | Ke b+

DeABSe ML

IF G39 THEM 138

PRIWT CHR Log” "OARS fd

POR Jet2 TO t STEF ~1

MUSIC 1.3. .8

1 RPLAY 1. 1, Bee

een REM LOOK AT KEYBOARD

2S KBE YB

eae WAIT Se

240 TF VALCK$o=> THEM Sse

oa HEAT WI

26@ FRIWT

sie MUSIC 1.1.1.8

264 PLAY is. toe, loee

278 FRIWNT "DIFFERENCE = "Gt
4 WALT Lee

SOTO 144

PRINT "RORRERT |”

GOTO 2a

Oo

NM MY

PG Re eee
we Ho Oo +1 A

i? #3

f
f

me TM i OF
Sy

mM? i

6) G3 ff

99

CURRENCY CONVERTER

If you are planning a holiday trip or, more importantly, a
business visit and wonder how far your money is going to
go — here is the answer.

You type in the present rate from your newspaper and you
can also predict a change in the rate and see what will
happen to your hard earned pennies.

This example shows dollars and pounds but, of course, any
currency can be used.

ay oo ol

1A REM CURRENCY CONVERTER

26 REM

1 a en

44 PRIAT ORE TAT

i LTHELUT CURRENT BATE $FPOUMiO" 5 ke
Sa PR IAT

Ta PRIHWT "1. a A oa

Sa PRIMT "2. FOUMDs TO a”

Set be Td 7

aa THPLUT "1 CR eB’ an

{A IF Cfo) AWD Oe be THEN eh

228 PRIGT

238 0M © GOTO 240, 36
See THMRUT

mr RR LRT DMT Cee be RD ted 1 ee!
fee FR TMT

are GOTO 24k

eae TRL oF

S38 FRIMT LMT Pa DET OL
ah Fe LMT

ak GOTO cee

H

i.

100

ARITHMETIC

An arithmetic test for all ages.

This program will generate an endless sequence of addition
and subtraction sums, testing for the correct answer in
each case.

To stop the program (all good things must come to an end!)
press the CTRL and C keys simultaneously.

Lee Pe t4

{18 REM ARITHMETIC

leg RET

1k (ios

{48 FOR J=1 TO ee

LS FPRIMT

jee Mee

178 PLOT 12.8. "RRITHMETIC"
is TAPUT UMAR TM Mitesh: Mb
194 CLs

2H PRIM Pe LMT

2 ei

ek? REM PICK bilitdeste bes

218 RIZINT: RHDC 1 OAM o+ 1

eek Re=INTs ROS 1 RM +1

feo REM WO MEGATIVE HUMBER
238 IF RéeRl THEM 22g

248 RS"IHTO RMD! 1 oke ot]

245 REM PRINT Sim

254 PRINT "WHAT IS "iki:

260 IF R321 THEM PRINT "MINIS "4

264 IF Ra4el THEN PRINT "PLUS °;
3

PRINT RE

REM THPIT ANSWER
INFUT AH

PRINT

IF RSe1 THEN AS=Ri-Rz
34 IF RG<31 THEN AS=Ri+k2

30@ IF ARS SAS THEM 314

382 MUSIC 1.4.7.8

~*

my oP ow.) Fe oy
:

-
i
-
<~.
at
Ss

re
oa tf

BE

nik
Pu

ho Po Be ho ho ha

101

me MM MO FD
Py Oc b

Pint GF O23 i

342
a1
313

Sek

t

PLAY Lotto ls Sie

PRINT UimirerRm iT t"

GOTO ei

helt

MUSIm l.e2.3.8

PLAY 1s. 1. 26a

REM TOG MAM Y TRIES

le ChMe4 THEM FRIHT "THe CORRECT AM

WER IS "GAS: GOTO 28e

Ml

PRINT © TRY RGAIH!"

S48 GOTO Sisk

102

~MULTIPLICATION TABLES

Here's a simple program to test your knowledge of multi-
plication. The range of numbers generated is controlled by
an input statement at the beginning, which makes this
program suitable for a range of ages and abilities. (Try
calculating 397 x 422 in your head!)

1a@ RET

11@ REM MULTIPLICATION TRELES
Lek REM

13@ CLS

148 FRIMT

Lee TMP Pee Tid MPR 3 fete
168 MSHI RDC 1 RM od

17a Me=INTs RHDC 1 DRM O41

175 REM AMSWER COUNT = @

168 CT =e

136 PRINT

192 PRINT "WHAT DS "GML TIMES "athe;
20@ IMFPUT Ab

21@ TF AWE LEME THEN 2ée@

21S REM WROMG AMSWER

224 CT=OT+1

ae IF TIS THEM 24a

23e FPRIWT

234 PRIHMT M10" "GHea= "“GHIikKMS
236 GOTO iéea

2th PRIWT

242 PRINT "TRY AGAIN!”

Soh PR LAT

2s GOT 2a

255 FEM RIGHT ANSWER

268 FRIWT

262 PRIWMT "CORRECT!"

264 PRIHT

ere TMRPLT "RGR IR" a eb

260 TF LEFTS< Gs. 1. 0="h" THEM sae
94 GOTO 162

Ma EMD

103

SPELLING TEST

Spelling Test will print out a list of three different spellings
of a word, only one of which is correct. You will then be
asked to enter the correct spelling. If your answer is correct
a new word is given.

The list of words in the data statements can be varied to suit
all ages. A modification would be to make none of the
spellings correct!

{aw FET

11@ REM SFELLIMG TEST
12k Ret

CLs

PAPER 7: IMK

DTtl Wiese 2, cs
PRIWT CHR! 17 >
PLOT les le. "SPELLING TEST?
WALT 2a

REM READ It DATA
FOR Je, TO 2e

FOR Ke] TO cS

REAL biteae wl. Ko

MEAT Ko ol

PRINT (Hebe 17 3

REM SELECT WORD
RLS ThMTC RMD! 1 aks bed

wT oP. fo
tt fei qe U3
Ty Ww TH

PPO Wa

FR Hb
VM My

J iG he

H
: iF

OY 8 a ee el ee ee Eo
rz

7:1 iB

awk Reel TO RMD 1 ok a+ i
eit IF Rilske THEM 2S
ar RS=ITAT. RMD 1 ok a+ 1

eo TF Rath] OR RSeke THEM 2k
290 ROS TAMTC RMDe 1 ok o+ 41

S40 TF ROS=RWO THEM 2S

S18 RWD=kD

se CLS: PRINT FRIWT

329 REM PRINT CHOICE

238 PRIHT "1. "GWDSC RADU RIO
S48 PRIWT "2. WD. RAD ee o

250 PRINT "3. "5 WDSC RUD. RS

36
3ra

~~ MH LO O ~
mT

3

ob

“™, oo

He

a Ppp hh & G1 tI G)
aL
ou,
i!

fs
pe
iS}

4
462
ml

47°
480
ef tba
ball ld
rat Lb
ened
atte
eb EI
ral nd Ea

MENT

pall

Pe
i

Oo GA ca fT on
™

ee | Fa

7, <=

sw yy
1% a

iT;
a 3 fie ee Ms tO or iT) ~

77

iF:
i
**

o-

Ce

af.
con

PRINT PRINT
PRINT WHAT IS THE CORRECT SPELIIMG

Pre TMT

IMPLUT Abs

A PRINT

LF ANS=HDS< RUD. 12 THEM 430

PRINT

BOT

Pre THT

WALT
DATA
DATA

DATA
DATA
DATA
DATA
DATA
DAT
DAT
DATR
OATA

DATA
DATA

DATA
CATA
DATA
DATA
DATA
CATA
DATA

DOr

"TRY : PRINT
389

"CORRECT |"

18a:GOTO 244
CARROT. CAROT. CARCTT
TELEVISION, TELIVISION. TELEVIS

AGRIN!"

COMPUTER. COMPUTOR . COMPLI AR:
WEHICLE. VEICLE. VEERCLE
RAMO. RAMEN . RAM DRT
FEBRUARY. FEBLAR YY SFE BURAR Y
VELLOMW. CELIO. SELLE
SEMTENCE s SEMTAMCE. SEMTEMSE
SUCCESS, SURESS. SUDRES
TORR RC TORR TOPO

EM TROMMEMT . EMMY TROMEMT . EM 1 RR

BEAUTIFUL. BUEART IFUL. BERUT LE UL
IMROSS IBLE. IMPOST BLE. THPOSS Te

ILLEGIBLE. ILECIBLE. ILLEGABILE
MEM o ATM EMME
DRCHESTRA.ORKESTRA, CRECESTRA
INTRIGUE. INTRIGE. THTREARGUE
PHELIMAT Tl MEMMAT OD. PMMA T TC
WECHE SOR Ys WEMSOAY » MEMDSoA'y
RPPLICATION, APLICAT ION. APPLIC

105

METRIC CONVERTER

Are you still having arguments in your house about the
difference between chains, poles and metres and hectares?
Here at last is a simple to use conversion program so that
everyone in the family can be right.

Further routines can be added to cover different conversions
for volumes etc.

a=".
1 ed

at
on!

ti em ni

mM

m7 Uy) fh
MM Mi mi

=
~

Sl ee oo ns

=

Li i
MM ? FQ Mo Ea

Mh fh
F: ii h3 ~_ a
Mm MM

a
T™
ios3

bh ho he

~~. r
try ta
iS

“ij
3 aT
-——s

£3
sx i im i} 2

w= _ ase,
CS
<<“ . ..
22
— —

- =

mia bon
; a iv? tl3

=r.
2
-
=;
i?
—

GS GIG) G2 0) Od Gd WO fd Po ma fat

x,
ee
wr

“J
nL? Ty

f

oh
©
©

REN
REM METRIC COMVERTER

REM

CLS

PRINT PRINT

PRINT "1. KILOGRAMS To POWHDS"
PRINT "2. METRES TO FEET AND TMCHE

PR IMT

INPUT" INPUT 1 OR €- TO SELECT SKY
IF KY“ >] RHO Ke be THEM Lik

Re KY GOTO sli. sai
PRIMTORPR IAT INPUT fic TRI" PR UT
IHFEUT KG

TF Kishk THEM 4nk

eRe SEE Le

le THT c2 ole THEM fae

Pos TMT. Oe Leo

a1 do

PRAM PUP ESS Ties UZS” SPR LAT
f(s iI

eae

IT eck

PRINT PRIM T THe Pe Teo eR LMT
LMPLIT TAT

Le taT=R THieh an

LM=tiT #9. 37

IF INTC IMocle THeb 332

PT= THT. THe le a

LM [Mr TET

ere LT
i> [ai
J basse
Pst T
Edi

ETI FT

KI

TMG IMS PRIKT

107

CAPITALS

This program will ask you for the capital of a country. Enter
the right answer, spelt correctly, and a further question will
be asked. If an incorrect answer is given, you will have three
tries to get it right, after which the answer will be printed.

The list of countries and capitals can be extended by adding
extra data statements after line 540 and increasing the
numbers in lines 140, 150 and 190 to match the total
number of countries.

This program can easily be altered to ask for information on
counties or American state capitals etc. It can also be adapted
to place people at places or dates in time, or to show the
inventors or painters of a period or place.

18a REM
110 REM CAPITALS

Lee RETA

124 CLS

140 CIM Cee 2009, Pe 2a)

ISG FOR J=1 TO 2

160 READ CBC 19, PHC ID

78 HEXT J

Chea

RNS INTC RMON 1 Yk2 +1

a IF RM=R THEN 192

1@ Ret

20 PRINT

20 PRINT "WHAT IS THE CAPITAL OF "s Cs
Ro PRINT

240 [MPT ANS: PRINT

250 1F ANS=PSCR> THEN PRINT “CORRECT!”
GOTO 180

260 CH=Ch+1

27Q IF CHe4 THEM 31a

280 PRINT "TRY AGAIN!"

290 PRINT

ana GOTO 24a

S18 PRINT

—_

TOA? Of mi
MM? ® MM Mi

<=.
2“?
_~

: P35 I} ee

fe
ae

oa

f
ae |
—

108

220 PRINT
"PRC RIG,”

PRIMT

“a b

ee |
oy

iti
Fe ae eS

fo3 23 i33 £3
ay

%
i i a
I}

83
a,
ix}

~
To,
=

i ; Sie

SA
4 katte
413
Se or
oa
che} 04
4 ih
Fa]
4
oat
ed
at] a 8a

~—:
PS ee
Lat

tl

“iin CA LH

GIT
.
=

i

SOT
DATA
DATA
DATA
DATA
DATR
CATR
DATA
DATA
DATA
DFTA
DATA
DATA
DATA
DATA
CATR
DRT A
CATA
DATR
DATA
DATA

“THE CAPITAL OF: "iCS¢Ro;”" IS

Link

AP GHA LS Ta RAB
ARGEMT IMA. BUEMOS
BELG DUM. BRUSSELS
BRASIL RIO DE WANE TRO
CAMADA » OT TWA
CUBA. HAY AMA
DEMMARE » COPE MHAGE MM
EGYRT. CATR
ENGLAND » LOMO
FRAME. PAR LS

GREECE. ATHEMS

ITAL. ROME

JARAR ICA. EI MGS Tord
MIGER TAL LAGOS
HORWAY . OSLO

Pte Thilo LD Sei

RUSS IA. MOosCOud
SCOTLAMG. ED TMBLIRGH
SPAT. MADRID

Lh. S.A. WASH IM Tor

MT rics

109

GRAPH IT

One of the horrors in business and education is being asked
to plot a graph.

At this time it is unlikely that you can smuggle your Oric intoa
classroom, or some boardrooms, but you can practise
plotting graphs with this easy to use program.

You, aS user, can insert the function in line 130 of the

program. The *40 in this example is a scaling factor which

can be found either by calculating a few likely values, or by

experiment. Try substituting the following in line 130
DEF FNA(X)=COS(X)*40

Lee REM

116 REM GRAPH IT

128 RET

125 REM INSERT FUHCTION BELOW
138 DEF FHA K oeS IMS eRe

148 HIRES

145 REM CRAW AKES

120 DRAM B.S. ft

160 CURSET 8,100, ¢4

174 DERM 2Sea. et

1735 REM PLOT FUHoTIOM

1S FOR w= TO 11 STEF 4.1
128 A=—F MAS SM 0+ 1 ee

Seu TF Aries Oe AS THEM 23e
e2Q@ CURSET H*X20,A.1

eal HEAT &

110

REPORTS

Ever been stuck for an impressive sounding phrase for
incorporation into reports or speeches? This program is the
answer! Readers might like to insert their own words into the
data statements in lines 270 — 330.

A similar structure to that of this program is used in many of
the “poetry” generating programs around. Just insert your
own short phrases instead of the single words.

ct a ol
18 REM REPORTS
2 REM
iam CLs
144 REM READ IM DATA
13a FOR w=] TO *
168 READ RPeBe oo. Bs do at io
17@ HeEsST oJ
188 PRINT PRIMT
138 THPUT "HG MAM FRR SES RR
she PRIA PRINT
“410 REM PRINT FH FHEASES
acm FOR Jed TO PH
ete PRINT Asso THT RMDS | bere dT oa OG
1 PRINT B80 TMT RHO | bee aAL oa OG
a PRINT (so DeTt RreDe | bake Lo
oF PRIMT FR IMT
BM MEST
oF DATA OM—GOTMG. AUMAATS TOG. eM TROMME

sei DATA MOGULAR. INTEGRATED, SITUAT IO
a DATA CIFFERENHTIATED. MOVIVAT TOMA
SE LAN clei’ _
ke DATA MINORITY. CREATIVE. GAPER TNE
318 DATA OP EM-EMCED. VERTICAL . TECH Tue

328 DATA THMOIVIDUAL EVALUAT TV. RE SOUR

a
338 DATA HOMOGENEOUS. OREIER TI view eA
y"

1117

This is a cheque book balancer to help you to keep track of
your account. To use, enter your last known balance,
followed by a list of cheques written out and payments in.
Each list should be ended with a zero. The computer will

CHEQUE BOOK

prompt you for each list.

Line 270 is of interest — it uses the escape character
CHR$ (27) followed by a control character “L” in front of
the print string to flash the word “overdrawn” on and off.

Although presented for a simple cheque account, the
program could easily be modified to cover many household

accounting requirements.

mH

fe > a

TS 03 om; ff

4. 03 0&3 2) O63 G3 0

RET

REM CHEGUE BOOK

RET

CLS

Phe Lh T

THMFUT "HOW MANY ROCOUMT SS” a A
Pre LMT

Fle Let To AC

PRINT

FRIMT RCQQUNT WO. ak

& PRIWT

IHPUT "COUR LAST SRLAWE BL
Fret LMT

PRIWT "CHEQUES SIMCE”
Fe LMT

LMFUT GH

IF CH=@ THEM 218

BL Bil Oe

BOT Lr

PP THT

PRIHT “PAYMENTS Tre"
Pret Dt T

LMFT FY

IF F'vs@ THEM see

BL = BL +P

2a’ GOTO 22k

26a PRIMT

eee FRIWHT "YOUR CURRKENMT BALANCE ITS "Ge
Li

2° IF BL<a& THEN PRIWT CHRO Sr os CU LOVER
DRA ”

2h FPRIMT: FR IMT

282 TB=TB+BL

2o4 BL=

2565 HEXT

2so PRIHT "TOTAL BALANCES = "5 Te

29a PRINT

Seika E>

113

PROGRAMS
FOR BUDDING PROGRAMMERS

This last selection of programs Is designed
to help those readers who want to stretch
their Oric — and themselves.

115

MACHINE CODE MONITOR

This program is for readers who are ready for advanced
programming, and who want to increase the speed of
execution on their Oric. Using this program you can input
machine code directly into Oric’s memory, in either
decimal or hexadecimal. You will find in this book a
program to help you with binary/decimal conversion.

Even if you are experienced it is always worthwhile
remembering to make sure your starting point precedes a
vacant part of your machine's memory -— and is available on
your model. After all, there is no point in trying to put
several K of changes into your machine if it's too small. To
end your input type “’S”.

Lea REM
L1@ REM MACHINE CODE MoHITOR
128 REM

iS@ INPUT "HEX OR DECIMAL IMPiIT" : 0
140 1F LEPTS0OS. 1 2="0" THEM 260
i5@ 1HPUT "START LOCRTICM" 3ST
16a GOTO 186

17a ST=ST+1

188 PRINT ST;

198 INPUT Cbs

20@ IF COS="S" THEN ssa

218 COS=RIGHTS¢ Cos. 2)

S28 CDB=" 8" +00

238 C=VALS Ce 9

248 POKE ST.C

250 GOTO 178

268 INPUT "START LOCATION® s 87
278 GOTO e508

She STaST+ 1

eo PRINT ST;

aa TMPUT Cts

S18 IF CO®="S" THEN 35a

117

Se De VAL Doe >
330 POKE ST.
S48 GOTO 2a
SoH EMD

118

MEMORY PEEK

This, for the budding programmers amongst you, is a
shortcut to understanding the operation of the ROM part
of your machine’s memory. The display of the memory
content is in both decimal and hexadecimal.

Along with the preceding machine code monitor program
this ‘peek’ will help you form a powerful machine code aid.

i@@ Ref

L118 REM MEMORY PEEK

RET

CLS

PRINT: FRIMWT

IMFUT "START RODRESS” a sT
FR LMT

IMPUT "EMO ADDRESS" : Eb
CLS

For J=5T TO EN STEF 2a
Pht LT

PRIMT “ADDRESS Pics DECTIM

MMMM M FO 2 >

PRINT

FOR Ke To 428

PRINT Ki” " HEX PEERS Ko oG”
" ; PEEKS K >

NEXT EK.

GET Ax

CLS

NEXT

PPD hee ee
GMT WO Ge Na ae 3 MG

Ta fa fh
m

fo
cS

Qos

PG he PO fo
7 1 O wh

119

BINARY TO DECIMAL
CONVERTER

This program will convert a sequence of binary digits (O's
and 1's) into a decimal number. The length of the binary
number is limited only by the maximum length of the input
statement on your Oric!

Lae
118
126
138
142
138
s A
178
168
185
192
ue
ee
238
a4
258
hol
are
2k
29t
388
318
ae
325
‘3 336
a)

s

t
i

Fe)
+

120

REM

REM BINARY TO DECIMAL CUOMVERS LOM
RES

CLS

PR IMT

PRIHT "INFUT SOUR BIMAR’ MUMBERS A
STRIMG OF 1°S AMD @’s”

PRIMT: PRINT "EG 1@m@lia”

PRINT: PRINT "INPUT & TO STOR”
PRINT

REM fATH LOR

INPUT "BIHAR "i Bs
IF 6S="5" THEN 348
b= jf

Dis

FOF Jie1 TO LEM Bi 2
AS="1OS( BS, LEMC BS om +1, 19
IF AS=°R" THEM 25g
OC=Dl+hH

kad BF Sed

MEAT

REM PRIWMT DECIMAL
PRIMT "DECTMAL =" 300
PRINT

BOT 288

EMD

CHARACTER DEFINITION

This program will allow you to redefine any of the character
set of your Oric. Input the character required followed by
the new definition as eight rows of six binary digits. If you
have a number of characters to do, it’s a good idea to
redefine zero as a blank space (enter 8 rows of 6 zeros) and
one as a solid block (enter 8 rows of 6 ones). This will
enable you to design each character in magnified form as
you enter it.

The memory location in line 190 refers to the 48K Oric, for
the 32K version, use 29696. For the 16K machine use
136 tz.

1@@ REM

11@ REM CHARACTER GCEFIMITIOM

l2zo REM

138 CLS: PRINT

148 THPUT "WHICH CHARACTER 5%

138 TSASt! CS 2

162 PRINT

178 PRIMT "ITMRFUT & ROWS AS A 6 DIGIT &
IMAR' UMM 1 <a Cae

168 PRIMT

198 FOR K=46850+T#e TO 460g8+THot+?
20@ IMPUT bs

eM@e IF LEMC BS o<>6 THEM PRIWT "WROMG Le
NGTH!" GOTO eee

2i@ H=1

228 DC

258 FOR J=1 TO LEM? BS °

240 AS=MIDS( BS. LEN. BSo-J+1. 12

250 IF AS="" THEM 27a

262 DCebl+h4

era Mahe

268 HEAT WJ

298 POKE K.DI

30@ MEXT kK.

121

SH
ml Ss)
3164
328
33k
34
be] 4)

122

PRIWT CHReSt T >
FPR IMT

FOR L=i TO 28
PRIHT CHRS¢ T 3;
HEXT

PR THT

Eto

SCREEN PRINT

Screen Print will give a copy of the television display ontoa
line printer connected to the Centronics output port.
Redefined characters will normally be printed in their
standard undefined form. Different parts of the screen can
be copied by changing the loop values in line 130 (number

of lines) and line 140 (number of columns).

On some printers the listing will be double spaced. Single
spacing can usually be achieved by replacing line 180 with
LPRINT CHR$ (27)

1k
11e
Lek
13
140
LSe
Lee
1 re
13a

i

—_—
im ip
im?

RET

REM SCREEN FRIMT
RES

FOR J=@ TO 26
FOR Kea TO Se
Mere Kd
LERIMT CHR Ho;
MEAT

LPR IMT

MEAT J

EME

123

current version:

ORIC-1

You can :
run an obstacle course

protect six cities from missile atta
ave a maiden from the dark kr
sing High Resolution G
a You can
draw graphs
plot circles
s weave webs —
lave your own firewo.
dding Programmer.

ISBN 0 9465 7601 7

Phoenix Publishing Associates

v0

| THE ORIC=1 PROGRAMBOOK V.APPS wsusnmeassocures